gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

minor code rewritte

This commit is contained in:
tipaul 2007-07-02 09:14:09 +00:00
parent 43e23a2ca9
commit f5583efd7b
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
C4/Overdues.pm
View File

@ -125,18 +125,13 @@ sub Getoverdues {
);
$sth->execute;
# FIXME - Use push @results
my $i = 0;
my @results;
while ( my $data = $sth->fetchrow_hashref ) {
$results[$i] = $data;
$i++;
push @results, $data;
}
$sth->finish;
# print @results;
# FIXME - Bogus API.
return ( $i, \@results );
return \@results;
}
=head2 checkoverdues