From 7f9e6c15534f80de243f1b394070703e6b1001b5 Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Fri, 21 Jul 2006 09:37:36 +0000
Subject: [PATCH] some subs have returned values changed.

---
 serials/lateissues.pl | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/serials/lateissues.pl b/serials/lateissues.pl
index db2ecf36c9..2762d4a542 100755
--- a/serials/lateissues.pl
+++ b/serials/lateissues.pl
@@ -58,10 +58,6 @@ my %supplierlist = GetSuppliersWithLateIssues;
 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 @@ my $CGIsupplier=CGI::scrolling_list(
             -multiple => 0 );
 
 my @lateissues;
-my $count;
-($count,@lateissues) = GetLateIssues($supplierid) if $supplierid;
-my @missingissues;
-my $count2;
-($count2, @missingissues) = GetMissingIssues($supplierid) if $supplierid;
+@lateissues = GetLateIssues($supplierid) if $supplierid;
 my @supplierinfo;
 my $nothing;
 ($nothing,@supplierinfo)=GetBookSeller($supplierid) if $supplierid;
@@ -94,8 +86,6 @@ my ($template, $loggedinuser, $cookie)
 $template->param(
     CGIsupplier => $CGIsupplier,
     lateissues => \@lateissues,
-    missingissues => \@missingissues,
-    supplierid => $supplierid,    
     phone => $supplierinfo[0]->{phone},
     booksellerfax => $supplierinfo[0]->{booksellerfax},
     bookselleremail => $supplierinfo[0]->{bookselleremail},
-- 
2.39.5