RE: RE: set value to minivend form [perl ...]

[Larry Leszczynski <larryl@furph.com>]

******    message to minivend-users from Larry Leszczynski <larryl@furph.com>     ******

Hi Alexander -

> If have tried this:
> [perl interpolat=1]
> my $temp="[item-field eventHREF]";
> my $out="";
> my ($vor,$nach);
> ($vor,$nach) = split(/:/,$temp);
> $Safe{'values'}{'nach'} = $Safe{'values'}{'file1'}; <-are you sure ;-)
> [/perl]
> 
> i've tries: $Safe{'values'}{'file1'} = $Safe{'values'}{'nach'}; too but it
> also work's ;-((

A couple things: First, use "interpolate" rather than "interpolat".
Second, you need to pass "values" as an argument to the [perl] tag,
otherwise it will not create access to the $Safe{'values'} data.
Try something like this:

[perl arg="values" interpolate=1]
  my $temp="[item-field eventHREF]";
  my ($vor,$nach) = split(/:/,$temp);
  $Safe{'values'}{'file1'} = $nach;
  "";
[/perl]



Larry Leszczynski
larryl@furph.com
--
  furph, Inc.	WWW/Unix/Windows Solutions	734-513-7763 (voice)
info@furph.com	   http://www.furph.com		734-513-7759 (FAX)


-
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