[Koha-cvs] koha/C4 Reserves.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/12 12:47:19

Modified files:
        C4             : Reserves.pm 

Log message:
        Bug Fixing : Reserves in OPAC or in intranet lead to an internal server 
error

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Reserves.pm?cvsroot=koha&r1=1.13&r2=1.14

Patches:
Index: Reserves.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- Reserves.pm 9 Jul 2007 08:29:51 -0000       1.13
+++ Reserves.pm 12 Jul 2007 12:47:19 -0000      1.14
@@ -20,7 +20,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Reserves.pm,v 1.13 2007/07/09 08:29:51 hdl Exp $
+# $Id: Reserves.pm,v 1.14 2007/07/12 12:47:19 hdl Exp $
 
 use strict;
 require Exporter;
@@ -33,7 +33,7 @@
 my $library_name = C4::Context->preference("LibraryName");
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.13 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.14 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -287,10 +287,8 @@
         $sth->execute($borrowernumber);
     }
     my @borrowerreserv;
-    while ( my $data = $sth->fetchrow_hashref ) {
-        push @borrowerreserv, $data;
-    }
-    return address@hidden;
+    my $data = $sth->fetchall_arrayref({});
+    return @$data;
 }
 
#-------------------------------------------------------------------------------------