|
|
|
****** message to minivend-users from cfm@maine.com ******
On Wed, Nov 29, 2000 at 04:05:05PM -0500, Chris Rapier wrote:
> ****** message to minivend-users from Chris Rapier <rapier@psc.edu> ******
>
>
>
>
> > Have you tried to write an order profile that sets the basket page
> > to the current page complete with any necessary scan variables? I'd
> > do it all in perl - not that its necessarily better; I just don't know
> > how to do it in MML.
>
> hurm... I should be able to do something like this. I will look into it.
> Now... where does minivend keep the current url again?
> :)
I'd start with this in Util.pm and build my own string
sub readin {
my($file, $only) = @_;
my($fn, $contents, $gate, $pathdir, $dir, $level);
local($/);
$Global::Variable->{MV_PREV_PAGE} = $Global::Variable->{MV_PAGE}
if defined $Global::Variable->{MV_PAGE};
$Global::Variable->{MV_PAGE}
something like (shorthand - you'll have to reference variables right)
{
my(@h);
push @h,
qq`[page $MV_PAGE scan`,
qq`se=$mv_searchspec[0]`,
qq`se=$mv_searchspec[1]`, # you had more than one if I remember
whatever else,
'</A>';
return join '/',@h;
}
--
Christopher F. Miller, Publisher cfm@maine.com
MaineStreet Communications, Inc 208 Portland Road, Gray, ME 04039
1.207.657.5078 http://www.maine.com/
Content management, electronic commerce, 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