[Koha-cvs] koha/C4 Overdues.pm

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	paul poulain <tipaul>	07/07/02 09:14:09

Modified files:
	C4             : Overdues.pm 

Log message:
	minor code rewritte

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Overdues.pm?cvsroot=koha&r1=1.4&r2=1.5

Patches:
Index: Overdues.pm
===================================================================
RCS file: /sources/koha/koha/C4/Overdues.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- Overdues.pm	18 Apr 2007 17:00:14 -0000	1.4
+++ Overdues.pm	2 Jul 2007 09:14:09 -0000	1.5
@@ -1,6 +1,6 @@
 package C4::Overdues;
 
-# $Id: Overdues.pm,v 1.4 2007/04/18 17:00:14 tipaul Exp $
+# $Id: Overdues.pm,v 1.5 2007/07/02 09:14:09 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -29,7 +29,7 @@
 use C4::Log; # logaction
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.4 $' =~ /\d+/g; 
+$VERSION = do { my @v = '$Revision: 1.5 $' =~ /\d+/g; 
 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -125,18 +125,13 @@
     );
     $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