[Koha-cvs] koha/acqui order.pl

[Antoine Farnault]

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

Modified files:
        acqui          : order.pl 

Log message:
        add a call to Bookseller.pm 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/order.pl?cvsroot=koha&r1=1.17&r2=1.18

Patches:
Index: order.pl
===================================================================
RCS file: /sources/koha/koha/acqui/order.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- order.pl    24 Jul 2006 07:42:28 -0000      1.17
+++ order.pl    27 Jul 2006 13:32:41 -0000      1.18
@@ -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: order.pl,v 1.17 2006/07/24 07:42:28 toins Exp $
+# $Id: order.pl,v 1.18 2006/07/27 13:32:41 toins Exp $
 
 =head1 NAME
 
@@ -37,15 +37,20 @@
 =over 4
 
 =item supplier
+
 C<$supplier> is the suplier we have to search order.
 =back
 
 =item op
+
 C<OP> can be equals to 'close' if we have to close a basket before building 
the page.
     
 =item basket
+
 the C<basket> we have to close if op is equal to 'close'.
 
+=back
+
 =cut
 
 use strict;
@@ -58,6 +63,7 @@
 use HTML::Template;
 use C4::Acquisition;
 use C4::Date;
+use C4::Bookseller;
 
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -88,7 +94,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;