Add a call to GetOrderNumber

This commit is contained in:
toins 2006-08-01 08:30:15 +00:00
parent f3c7dbf1cf
commit 7c986b6872

View file

@ -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;