[Koha-cvs] koha/serials lateissues.pl

Antoine Farnault antoine at koha-fr.org
Thu Jul 27 15:58:57 CEST 2006


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, at supplierinfo)=GetBookSeller($supplierid) if $supplierid;
+
+my @supplierinfo=GetBookSeller($supplierid) if $supplierid;
 
 my ($template, $loggedinuser, $cookie)
 = get_template_and_user({template_name => "serials/lateissues.tmpl",





More information about the Koha-cvs mailing list