Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

some subs have returned values changed.

Browse source
This commit is contained in:
toins 2006-07-21 09:37:36 +00:00
parent 49ea64a1f0
commit 7f9e6c1553
1 changed files with 1 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
serials/lateissues.pl
View file

@ -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},