Add Call to Bookseller.pm & 1 sub renamed.

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index 853759d..ccb0c79 100755 (executable)
--- a/serials/acqui-search-result.pl
+++ b/serials/acqui-search-result.pl
@@ -50,6 +50,7 @@ use C4::Database;
 use HTML::Template;
 use C4::Acquisition;
 use C4::Date;
+use C4::Bookseller;
 
 my $query=new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -69,7 +70,7 @@ my $count = scalar @suppliers;
 my $toggle=0;
 my @loop_suppliers;
 for (my $i=0; $i<$count; $i++) {
-    my $orders = GetOrders($suppliers[$i]->{'id'});
+    my $orders = GetPendingOrders($suppliers[$i]->{'id'});
     my $ordcount = scalar @$orders;
     
     my %line;

diff --git a/serials/lateissues.pl b/serials/lateissues.pl
index 2762d4a..226ade9 100755 (executable)
--- a/serials/lateissues.pl
+++ b/serials/lateissues.pl
@@ -47,6 +47,7 @@ use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Context;
 use HTML::Template;
+use C4::Bookseller;
 
 my $query = new CGI;
 # my $title = $query->param('title');
@@ -70,9 +71,8 @@ my $CGIsupplier=CGI::scrolling_list(
 
 my @lateissues;
 @lateissues = GetLateIssues($supplierid) if $supplierid;
-my @supplierinfo;
-my $nothing;
-($nothing,@supplierinfo)=GetBookSeller($supplierid) if $supplierid;
+
+my @supplierinfo=GetBookSeller($supplierid) if $supplierid;
 
 my ($template, $loggedinuser, $cookie)
 = get_template_and_user({template_name => "serials/lateissues.tmpl",