Akopia Akopia Services

[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date ][Minivend by thread ]

RE: [mv] $Safe{scratch} in a UserTag?



******    message to minivend-users from Ken Berland <ken@hero.com>     ******

This works.
Now how about getting at [data session arg] in a UserTag?
(I tried $::Session->{'arg'} to no avail.  I know I can set it to a
scratch variable before doing the userTag, but thats 2 tags instead of
one.  If you can get at $::Scratch, session arg must be there ? 

On Fri, 7 Jan 2000, Eric Frisch wrote:

> ******    message to minivend-users from "Eric Frisch" <ericf@conetra.com>     ******
> 
> Try this, it works for me.  I am no MV guru so if someone things I am doing
> something very bad I would be happy to hear about it.
> 
> $::Scratch->{'yuks'}='foo';
> 
> Eric Frisch
> 
> > -----Original Message-----
> > From: owner-minivend-users@minivend.com
> > [mailto:owner-minivend-users@minivend.com]On Behalf Of Ken Berland
> > Sent: Thursday, January 06, 2000 10:49 PM
> > To: minivend-users@minivend.com
> > Subject: [mv] $Safe{scratch} in a UserTag?
> >
> >
> > ******    message to minivend-users from Ken Berland
> > <ken@hero.com>     ******
> >
> > I've got the following [perl] code that I'd like to move to UserTag in the
> > catalog.cfg so I can be neater, cleaner person.  Minvend V3.14-3 doesn't
> > like the same syntax in the usertag as in the [perl], I got this error on
> > statup:
> >
> > [06/January/2000:19:47:57 -0800] - - UserTag 'cat_set' code is not a
> > subroutine reference
> > > In line 1527 of the configuration file 'catalog.cfg':
> > > UserTag cat-set Routine <<EOF
> >
> > So, I tried changing $Safe{scratch}{yuks}="works"; to
> > $Vend::Safe->{scratch}->{yuks}="foo"; but that doesn't seem to work.
> > How do i reference my scratch vars inside a UserTag? TIA.
> >
> > <!-- Working way, in html -->
> > [perl]
> > $Safe{scratch}{yuks}="works";
> > [/perl]
> > [scratch yuks]
> >
> > <!-- Broken attempt from catalog.cfg -->
> > UserTag cat-set Routine <<EOF
> > sub
> > {
> >         $Vend::Safe->{scratch}->{yuks}="foo";
> >         return "Did usertag<BR>";
> > }
> > EOF
> >
> > -
> > To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
> > email with 'UNSUBSCRIBE minivend-users' in the body to
> > Majordomo@minivend.com.
> > Archive of past messages: http://www.minivend.com/minivend/minivend-list
> >
> 
> -
> To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
> email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
> Archive of past messages: http://www.minivend.com/minivend/minivend-list
> 

-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list


Search for: Match: Format: Sort by: