[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [mv] Value mv_searchspec MV 4.04
****** message to minivend-users from cfm@maine.com ******
On Tue, May 23, 2000 at 09:46:13AM +0200, jojo@buchonline.net wrote:
> ****** message to minivend-users from jojo@buchonline.net ******
>
> On 22 May, Humberto T Reyes wrote:
> > ****** message to minivend-users from "Humberto T Reyes" <htreyes@earthlink.net> ******
> >
> > Greetings,
> >
> > How can I get the value of mv_searchspec--I tried this:
> >
> > [perl arg="values" interpolate="1"]
> > my($msg1)='[value mv_searchspec]';
> > my(@items)=split (/\0/, $msg1);
> > $Safe{'values'}{'se_1'} = $items[0];
> > $Safe{'values'}{'se_2'} = $items[1];
> > $Safe{'values'}{'se_3'} = $items[2];
> > $Safe{'values'}{'se_4'} = $items[3];
> > $Safe{'values'}{'se_5'} = $items[4];
> > $Safe{'values'}{'se_6'} = $items[5];
> > $Safe{'values'}{'se_7'} = $items[6];
> > return '';
> > [/perl]
> >
> > but all I get as a value is: ARRAY(0x82db924)
>From mv3.14 to mv4.03 mv_searchspec changed to an array from a
null delimited string.
For compatibility while we cut over a lot of catalogs, we made
the following change in lib/Vend/Scan.pm approx line 380, routine
finish_search:
$::Values->{mv_searchspec}=$q->{mv_searchspec}; # after this
$::Values->{my_searchspec}=join '\000',@{$q->{mv_searchspec}}; # CFM compat
Then a global replace /mv_searchspec/my_searchspec/ and it seemed
to work. I'm not sure that will get everything but it worked enough
to help with the transition.
--
Christopher F. Miller, Publisher cfm@maine.com
MaineStreet Communications, Inc 208 Portland Road, Gray, ME 04039
1.207.657.5078 http://www.maine.com/
Database publishing, e-commerce, office/internet integration, Debian linux.
-
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
