From cb21ac2d859184cd993802b730c58c93ea0596dd Mon Sep 17 00:00:00 2001 From: toins Date: Tue, 1 Aug 2006 08:29:02 +0000 Subject: [PATCH] GetAllOrders renamed to GetPendingOrders. --- acqui/parcel.pl | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/acqui/parcel.pl b/acqui/parcel.pl index 27def76cc0..079fe936b1 100644 --- a/acqui/parcel.pl +++ b/acqui/parcel.pl @@ -127,8 +127,8 @@ for (my $i=0;$i<$countlines;$i++){ $totalquantity+=$parcelitems[$i]->{'quantityreceived'}; $tototal+=$total; } -my @pendingorders = GetAllOrders($supplierid); -my $countpendings = scalar @pendingorders; +my $pendingorders = GetPendingOrders($supplierid); +my $countpendings = scalar @$pendingorders; my @loop_orders = (); for (my $i=0;$i<$countpendings;$i++){ @@ -140,18 +140,18 @@ for (my $i=0;$i<$countpendings;$i++){ $line{color}='white'; $toggle=0; } - $line{basketno} = $pendingorders[$i]->{'basketno'}; - $line{isbn} = $pendingorders[$i]->{'isbn'}; - $line{ordernumber} = $pendingorders[$i]->{'ordernumber'}; - $line{biblionumber} = $pendingorders[$i]->{'biblionumber'}; + $line{basketno} = $pendingorders->[$i]->{'basketno'}; + $line{isbn} = $pendingorders->[$i]->{'isbn'}; + $line{ordernumber} = $pendingorders->[$i]->{'ordernumber'}; + $line{biblionumber} = $pendingorders->[$i]->{'biblionumber'}; $line{invoice} = $invoice; $line{gst} = $gst; - $line{title} = $pendingorders[$i]->{'title'}; - $line{author} = $pendingorders[$i]->{'author'}; - $line{unitprice} = $pendingorders[$i]->{'unitprice'}; - $line{ecost} = $pendingorders[$i]->{'ecost'}; - $line{quantityrecieved} = $pendingorders[$i]->{'quantityreceived'}; - $line{quantity} = $pendingorders[$i]->{'quantity'}; + $line{title} = $pendingorders->[$i]->{'title'}; + $line{author} = $pendingorders->[$i]->{'author'}; + $line{unitprice} = $pendingorders->[$i]->{'unitprice'}; + $line{ecost} = $pendingorders->[$i]->{'ecost'}; + $line{quantityrecieved} = $pendingorders->[$i]->{'quantityreceived'}; + $line{quantity} = $pendingorders->[$i]->{'quantity'}; $line{total} = $total; $line{supplierid} = $supplierid; push @loop_orders, \%line; -- 2.39.5