need help with perl / scratch variable

["kenshin" <kenshin@planetanime.com>]

******    message to minivend-users from "kenshin" <kenshin@planetanime.com>     ******

Hello,
I'm running minivend 3.12 with perl 5.005

I'm trying to run the following code that reads a field in my products
database and then splits the value on the '.' and is supposed to return the
$name as a scratch variable for "small_image"

$name is returning null or empty.  I have no problem returning $image though
so i'm wondering if 'split' is not supported in "Safe perl."  I'm new to
perl programing so i may be really far off the target on this one.  But any
help would be appreciated.

  [perl scratch interpolate=1]
  $image = '[item-field image]';
  ($name, $ext) = split /./, $image;
  $Safe{'scratch'}{'small_image'} = $name;
  [/perl]

thanks,
mike k.

-
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