[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
Re: [mv] results page
****** message to minivend-users from Bill Randle <billr@exgate.tek.com> ******
Even though you have a working solution now, there was just a minor error in
Joachim's
script that prevented it from working correctly. See below for the correction.
-Bill
Andreas Kotowicz wrote:
>
> ****** message to minivend-users from Andreas Kotowicz <koto@mynetix.de> ******
>
> ok, here's joachims code in a simple page:
>
> <html>
> <body>
> [seti flag]0[/seti]
> [seti end]0[/seti]
> [search-region]
>
> <TABLE>
>
> [search-list]
>
> [perl arg=scratch]
> my $out = "";
> if($Safe{'scratch'}->{'flag'} == 0) {
> $Safe{'scratch'}->{'flag'} = 1;
> $out = "<TR>";
> }
> [/perl]
> <TD><A HREF="[area [item-field artnr]]">[item-field artbez]</A></TD>
>
> [perl arg=scratch]
> my $out = "";
Everything OK so far. Change this next if statement:
if($Safe{'scratch'}->{'flag'} == 0) {
to:
if($Safe{'scratch'}->{'flag'} == 1) {
and it should work just fine.
> $Safe{'scratch'}->{'flag'} = 2;
> $Safe{'scratch'}->{'end'} = 1;
> }
> else {
> $Safe{'scratch'}->{'flag'} = 0;
> $Safe{'scratch'}->{'end'} = 0;
> $out = "</TR>";
> }
> [/perl]
>
> [if scratch end == 1]
> </TR>
> [/if]
> [/search-list]
> </TABLE>
>
> [/search-region]
[rest deleted]
-
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
