From 6808155c44dbcd93d88bf804177ccae11772117e Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Thu, 27 Jul 2006 13:58:33 +0000
Subject: [PATCH] Add Call to Bookseller.pm & 1 sub renamed.

---
 serials/acqui-search-result.pl | 3 ++-
 serials/lateissues.pl          | 6 +++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl
index 853759dee2..ccb0c79485 100755
--- 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 2762d4a542..226ade960b 100755
--- 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",
-- 
2.39.5