Re: [mv] How To Extract Item Codes At Checkout Question: AGAIN

[OTR Comm <otrcomm@wildapache.net>]

Hello,

Never mind, I figured it out.

I use:

        foreach $i (0 .. $#$Vend::Items) {
        
                $item = $Vend::Items->[$i]->{'code'};
                
                print MV "item = $item\n";
                
        } 

and get my item codes.

I hope I have access to $#$Vend::Items in Order.pm, I will see.

Thanks,
Murrah Boswell

OTR Comm wrote:
> 
> Hello,
> 
> I figured it out, I forgot to declare my ($item)
> 
> However, how do I get the value of each item in @{$Vend::Items} instead
> of the hash reference?
> 
> Thanks,
> Murrah Boswell
> 
> OTR Comm wrote:
> >
> > Hello again,
> >
> > Another question:
> >
> > cfm@maine.com wrote:
> > >
> > > On Sat, Jan 20, 2001 at 10:25:47AM -0700, OTR Comm wrote:
> >
> > >
> > >   for (@{$Vend::Items}) {
> > >     stuff orders, order_items # whatever schema
> > >     $MERCHANTS_IN_THIS_ORDER{$item->{merchant}}; # unique list
> > >   }
> > >   for (keys $MERCHANTS_IN_THIS_ORDER) {
> > >     %o=SELECT * FROM orders WHERE order_number=$this_order_number;
> > >     %v=SELECT * FROM order_items WHERE order_number=$this_order_number
> > >       AND merchant_id=$this_merchant_id;
> > >     &post_advice($this_merchant,\%o,%v); # might be email, db, whatever
> > >   }
> > >
> >
> > I have realperl defined as a UserTag in minivend.cfg and added the
> > following code to checkout.html just for some debugging:
> >
> > [realperl]
> > {
> >
> >         open (MV,"+>>pages/mvchk");
> >
> >         print MV "In checkout:\n";
> >
> >
> >         foreach $item (@{$Vend::Items}) {
> >
> >                 print MV "item = $item\n";
> >
> >         }
> >
> >         close(MV);
> >
> > }
> > [/realperl]
> >
> > The snippet works fine if I comment out the foreach loop (I get output
> > to pages/mvchk), but dies if I try to evaluate it.
> >
> > Do you think that this is a problem with hos I have realperl defined, or
> > is it a problem with how I address @{$Vend::Items} on the foreach loop?
> >
> > Thanks,
> > Murrah Boswell
> >
> > > &do_my_behind_the_scene_stuff # can be entirely separate outside mv
> > >
> > > cfm
> > >
> >
> > >
> > > --
> > >
> > > Christopher F. Miller, Publisher                             cfm@maine.com
> > > MaineStreet Communications, Inc         208 Portland Road, Gray, ME  04039
> > > 1.207.657.5078                                       http://www.maine.com/
> > > Content management, electronic commerce, internet integration, Debian linux
> > >
> > > _______________________________________________
> > > Minivend-users mailing list
> > > Minivend-users@minivend.com
> > > http://lists.akopia.com/mailman/listinfo/minivend-users
> >
> > _______________________________________________
> > Minivend-users mailing list
> > Minivend-users@minivend.com
> > http://lists.akopia.com/mailman/listinfo/minivend-users
> 
> _______________________________________________
> Minivend-users mailing list
> Minivend-users@minivend.com
> http://lists.akopia.com/mailman/listinfo/minivend-users


_______________________________________________
Minivend-users mailing list
Minivend-users@minivend.com
http://lists.akopia.com/mailman/listinfo/minivend-users