[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [mv] perl string > integer: Sorry Not yet solved.
****** message to minivend-users from jojo@buchonline.net ******
On 27 Sep, Sezer Yalcin wrote:
> ****** message to minivend-users from Sezer Yalcin <sezery@damla.net> ******
>
>
> hi again,
>
> thank all of you for suggestions. I carefully tested each of them either
> there were no difference or gave errors. I forgot to mention i use
> Mv3.14-3. Probably some are for mv 4.x. That was stupid of myself.
[DEL]
> 2.try this
> my $rat;
> my $db = 'products';
> my $field = 'taxgroup';
> my $code = [item-code] (or [item-field code/sku?])
> $rat = Vend::Interpolate::tag_data($db, $field, $code);
> Hans-Joachim Leidinger
>
> *thank you but this did not work out giving this error:
> Safe: Undefined subroutine &Vend::Interpolate::tag_data called at (eval
> 135) line 25.
>
> whereas i include headers:
> [perl scratch values tables="taxgroups"]
> package Vend::Interpolate;
> package Vend::Data;
I´ve believe, you are writting an UserTag...
[DEL]
> 3.
> [seti dummytax][data taxgroups rate [item-field taxgroup]][/seti]
>
> in your perl codes, try
> $dummy = $Safe{'scratch'}->{'dummytax'} * 1;
> $rate = $dummy;
>
> this does not work. i think [seti] is not available in 3.14.
Right! Try (not tested)
[set name="dummytax" interpolate=1][data table="taxgroups" field="rate"
key="[item-field taxgroup"][/set]
(all in one line)
[perl arg="scratch"]
my $dummy = $Safe{'scratch'}->{'dummytax'} * 1;
my $rate = $dummy;
return $rate;
[/perl]
first. If it works, you can go on to finish your codes.
Good lucks!
Joachim
--
Hans-Joachim Leidinger
buch online jojo@buchonline.net
Munscheidstr. 14 FAX: +49 209 1671441
45886 Gelsenkirchen FAX: 0209 1671441
-
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
