[ic] Ambiguous result

MhsapoA@netscape.net MhsapoA@netscape.net
Thu, 16 Nov 2000 19:47:14 -0500


1) How do I use the [more] in this case?: I want to show up to 20 items per 
page

2) The variable $istock get only "N" even if the $invsplit is less than zero. 
 I did the same code in plain perl and works.  Could you please tell me 
what's wrong?

Below is the code:
========================================================================
[loop search="
st=db
sq=select * from inventory where 
ml=10000
"]


[perl]
push (@f,'[loop-data inventory sku]');
push (@l,'[loop-data inventory quantity]');
[/perl]

[/loop]

[perl]
@indices = sort { $l[$a] cmp $l[$b] or
$f[$a] cmp $f[$b]} (0..$#f);

foreach (@indices){
$la = $l[$_];
$fa = $f[$_];

$key = $fa . "\0" . $la ;
}


foreach $key (sort keys %models){
($skusplit,$invsplit) = split (/\0/, $key);


if($invsplit > 0){
$istock='Y';
}else{
$istock='N';
}

$return .= "SKU: $skusplit,INV: $invsplit, Is is in Stock: $istock";
}
return $return;
[/perl]
======================================================================
SAMPLE OUTPUT:
SKU: ORANGE,INV: 100, Is is in Stock: N
SKU: LIME,INV: 0, Is is in Stock: N
SKU: PEAR,INV: 14, Is is in Stock: N
SKU: FROG,INV: 23, Is is in Stock: N
...ETC