Re: [mv] PERL: Interpolate question

["Mr. Anthony R.J. Ball" <ant@maine.com>]

> [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>);

Here... all of your text is withing minivend [] braces... try it without them...
MV might be clobbering the values... not sure...


> 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") {

here you need a $output = ''; or you'll get the first part and this part

>   $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]

   It's also possible your tables are wrong so your info doesn't show even 
though it's there. Have you viewed the source of the outputted page?

Hope something here helps! 			- Ant

-- 

Anthony Ball                                                ant@maine.com
MaineStreet Communications, Inc        208 Portland Road, Gray, ME  04039
tel:1.207.657.5078         fax:1.207.657.5048       http://www.maine.com/