my $ordno = 1; while (my $ref = $GetWOData->fetchrow_hashref()) { my $ordslice = 1; print "$ref->{'Ord_No'}\n"; $orders[$ordno]->[$ordslice] = "$ref->{'Ord_No'} | $ref->{'Item_No'} +"; $ordslice++; print "$ref->{'Item_No'}\n"; print "<input type=\"text\" name=\"qty$ordno\" value=\"\" size=\ +"6\">\n"; #Qty of parts $orders[$ordno]->[$ordslice] = "0"; $ordslice++; print "$ref->{'Item_Desc_1'}\n"; $orders[$ordno]->[$ordslice] = "$ref->{'Item_Desc_1'} | $ref->{'Item +_Desc_2'}"; $ordslice++; print "<input type=\"text\" name=\"skd$ordno\" value=\"\" size=\" +6\">\n"; #Num of skids $orders[$ordno]->[$ordslice] = "0"; $ordslice++; print "$ref->{'Cus_Name'}\n"; $orders[$ordno]->[$ordslice] = "$ref->{'Cus_Name'}"; $ordno++; } $GetWOData->finish();
In reply to looking for better solution by BikerDuck
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |