MiniVend Akopia Services

[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date ][Minivend by thread ]

PERL: Interpolate question



My code (in my flypage) is driving me nuts. :-)

 It's supposed to return the HTML that is defined in the variable $output at 
the beginning, if none of the IF/ELSIF conditions are net. But, when 
conditions aren't met, it returns nothing! (When conditions *are* met, the 
script works like a peach.

I'm very grateful for anyone who will point out to me my dumb mistakes. I 
wonder if I'm not accomodating the manner in which MiniVend interpolates?

TIA, Rob Maurer

[perl interpolate=1]
$output = '';

  $output .= qq(\n\t<td width="50%">) . qq([order [item-code]]);
  $output .= qq([Unable to display image][/order]</td>);
  $output .= qq(\n\t<td width="50%">) . qq([order [item-code]]) . qq([Unable 
to display image]) . qq([/order]) . qq(</td>);
if ((qq([item-field limited]) eq "yes") && ([item-field availablenum] < 1)) {
  $output = '';
  $output .= qq(<td width="50%"><center><strong>);
  $output .= qq();
  $output .= qq(Not available.</strong></center></td>);
  $output .= qq(<td width="50%"><center><strong>);
  $output .= qq();
  $output .= qq(Item is sold.</strong></center></td>);
  }
elsif (qq([item-field limited]) eq "yes") {
  $output .= qq(\n\t</tr><tr><td width="100%" colspan="2">);
  $output .= qq(<center><strong>);
  $output .= "Only " . "[item-field availablenum]" . " available!";
  $output .= qq(</strong></center></td>);
  }

return $output;
[/perl]


Search for: Match: Format: Sort by: