Add a call to GetOrderNumber

diff --git a/acqui/newbasket2.pl b/acqui/newbasket2.pl
index bd522c3..f05f391 100755 (executable)
--- a/acqui/newbasket2.pl
+++ b/acqui/newbasket2.pl
@@ -285,9 +285,8 @@ while ( $i < $count2 ) {
 
     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;