Add a call to GetOrderNumber.

diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl
index 78dcd56..edd7c30 100755 (executable)
--- a/catalogue/moredetail.pl
+++ b/catalogue/moredetail.pl
@@ -71,7 +71,9 @@ my @results;
 my (@items)=itemissues($bi);
 my $count=@items;
 $data->{'count'}=$count;
-my ($order,$ordernum)=GetOrder($biblionumber,$bi);
+
+my $ordernum = GetOrderNumber($biblionumber,$bi);
+my $order = GetOrder($ordernum);
 
 my $env;
 $env->{itemcount}=1;

diff --git a/opac/opac-moredetail.pl b/opac/opac-moredetail.pl
index 357e1b6..6374277 100755 (executable)
--- a/opac/opac-moredetail.pl
+++ b/opac/opac-moredetail.pl
@@ -38,7 +38,10 @@ my $bi=$input->param('bi');
 my $data=bibitemdata($bi);
 
 my (@items)=itemissues($bi);
-my ($order,$ordernum)=GetOrder($bib,$bi);
+
+my $ordernum = GetOrderNumber($bib,$bi);
+my $order = GetOrder($ordernum);
+
 #print @items;
 my $count=@items;