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

[Ken Berland <ken@hero.com>]

******    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