[Koha-cvs] koha/serials acqui-search-result.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/27 13:58:33

Modified files:
        serials        : acqui-search-result.pl 

Log message:
        Add Call to Bookseller.pm & 1 sub renamed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/acqui-search-result.pl?cvsroot=koha&r1=1.3&r2=1.4

Patches:
Index: acqui-search-result.pl
===================================================================
RCS file: /sources/koha/koha/serials/acqui-search-result.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- acqui-search-result.pl      21 Jul 2006 09:36:42 -0000      1.3
+++ acqui-search-result.pl      27 Jul 2006 13:58:33 -0000      1.4
@@ -20,7 +20,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-search-result.pl,v 1.3 2006/07/21 09:36:42 toins Exp $
+# $Id: acqui-search-result.pl,v 1.4 2006/07/27 13:58:33 toins Exp $
 
 =head1 NAME
 
@@ -50,6 +50,7 @@
 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 $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;