[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 address@hidden 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,@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';