[Koha-cvs] koha/acqui newbasket2.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/08/01 08:30:15

Modified files:
        acqui          : newbasket2.pl 

Log message:
        Add a call to GetOrderNumber

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newbasket2.pl?cvsroot=koha&r1=1.18&r2=1.19

Patches:
Index: newbasket2.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newbasket2.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- newbasket2.pl       31 Jul 2006 14:45:37 -0000      1.18
+++ newbasket2.pl       1 Aug 2006 08:30:15 -0000       1.19
@@ -285,9 +285,8 @@
 
     my @ordernumbers;
     foreach my $bibitem (@bibitems) {
-
-        ( $order, $ordernumber ) =
-          &GetOrder($result->{biblionumber},$bibitem->{biblioitemnumber} );
+        my $ordernumber = 
GetOrderNumber($result->{biblionumber},$bibitem->{biblioitemnumber});
+        $order = &GetOrder($ordernumber);
 
         #only show order if its current;
         my %order;