[Koha-cvs] koha/acqui select-late.pl

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/31 16:03:47

Modified files:
	acqui          : select-late.pl 

Log message:
	Add a call to Acquisition.pm

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/select-late.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: select-late.pl
===================================================================
RCS file: /sources/koha/koha/acqui/select-late.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- select-late.pl	4 Jul 2006 13:35:29 -0000	1.2
+++ select-late.pl	31 Jul 2006 16:03:46 -0000	1.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: select-late.pl,v 1.2 2006/07/04 13:35:29 toins Exp $
+# $Id: select-late.pl,v 1.3 2006/07/31 16:03:46 toins Exp $
 
 #script to show suppliers and orders
 #written by chris at katipo.co.nz 23/2/2000
@@ -24,7 +24,6 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
-use C4::Catalogue;
 use C4::Auth;
 use C4::Biblio;
 use C4::Output;
@@ -32,9 +31,10 @@
 use C4::Interface::CGI::Output;
 use C4::Database;
 use HTML::Template;
-use C4::Catalogue;
+# use C4::Catalogue;
 use C4::Context;
 use C4::Date;
+use C4::Acquisition;
 
 my $query=new CGI;
 my $dbh = C4::Context->dbh;
@@ -48,14 +48,12 @@
 			     });
 
 my $supplier=$query->param('id');
-my ($count, at suppliers)=bookseller($supplier);
-
-
+my @suppliers=GetBookSeller($supplier);
+my $count = scalar @suppliers;
 
 my $sth = $dbh->prepare("select s.serialseq from serial s, subscription u where s.subscriptionid = u.subscriptionid and u.aqbooksellerid = ? and s.status = 2");
 
-
- $sth->execute($supplier);
+$sth->execute($supplier);
 my  @final;
 while (my $sol = $sth->fetchrow_hashref)
 {
@@ -68,7 +66,9 @@
 my $toggle=0;
 my @loop_suppliers;
 for (my $i=0; $i<$count; $i++) {
-	my ($ordcount,$orders)=getorders($suppliers[$i]->{'id'});
+	my $orders = GetPendingOrders($suppliers[$i]->{'id'});
+    my $ordcount = scalar @$orders;
+    
 	my %line;
 	if ($toggle==0){
 		$line{color}='#EEEEEE';