[Koha-cvs] koha/serials lateissues.pl

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/21 09:37:36

Modified files:
	serials        : lateissues.pl 

Log message:
	some subs have returned values changed.

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

Patches:
Index: lateissues.pl
===================================================================
RCS file: /sources/koha/koha/serials/lateissues.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- lateissues.pl	20 Jul 2006 03:24:13 -0000	1.5
+++ lateissues.pl	21 Jul 2006 09:37:36 -0000	1.6
@@ -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.5 2006/07/20 03:24:13 bob_lyon Exp $
+# $Id: lateissues.pl,v 1.6 2006/07/21 09:37:36 toins Exp $
 
 =head1 NAME
 
@@ -58,10 +58,6 @@
 my @select_supplier;
 push @select_supplier,"";
 foreach my $supplierid (keys %supplierlist){
-    my ($count, @dummy) = GetLateIssues($supplierid);
-    my ($count2, @dummy2) = GetMissingIssues($supplierid);
-    my $counting = $count+$count2;
-    $supplierlist{$supplierid} = $supplierlist{$supplierid}." ($counting)";
     push @select_supplier, $supplierid
 }
 my $CGIsupplier=CGI::scrolling_list(
@@ -73,11 +69,7 @@
             -multiple => 0 );
 
 my @lateissues;
-my $count;
-($count, at lateissues) = GetLateIssues($supplierid) if $supplierid;
-my @missingissues;
-my $count2;
-($count2, @missingissues) = GetMissingIssues($supplierid) if $supplierid;
+ at lateissues = GetLateIssues($supplierid) if $supplierid;
 my @supplierinfo;
 my $nothing;
 ($nothing, at supplierinfo)=GetBookSeller($supplierid) if $supplierid;
@@ -94,8 +86,6 @@
 $template->param(
     CGIsupplier => $CGIsupplier,
     lateissues => \@lateissues,
-    missingissues => \@missingissues,
-    supplierid => $supplierid,    
     phone => $supplierinfo[0]->{phone},
     booksellerfax => $supplierinfo[0]->{booksellerfax},
     bookselleremail => $supplierinfo[0]->{bookselleremail},