koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/serials lateissues.pl


From: Antoine Farnault
Subject: [Koha-cvs] koha/serials lateissues.pl
Date: Thu, 27 Jul 2006 13:58:57 +0000

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

Modified files:
        serials        : lateissues.pl 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/lateissues.pl?cvsroot=koha&r1=1.6&r2=1.7

Patches:
Index: lateissues.pl
===================================================================
RCS file: /sources/koha/koha/serials/lateissues.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- lateissues.pl       21 Jul 2006 09:37:36 -0000      1.6
+++ lateissues.pl       27 Jul 2006 13:58:56 -0000      1.7
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: lateissues.pl,v 1.6 2006/07/21 09:37:36 toins Exp $
+# $Id: lateissues.pl,v 1.7 2006/07/27 13:58:56 toins Exp $
 
 =head1 NAME
 
@@ -47,6 +47,7 @@
 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 @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",




reply via email to

[Prev in Thread] Current Thread [Next in Thread]