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

diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index 2a1a820..749db6d 100755 (executable)
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -287,10 +287,8 @@ sub GetReservesFromBorrowernumber {
         $sth->execute($borrowernumber);
     }
     my @borrowerreserv;
-    while ( my $data = $sth->fetchrow_hashref ) {
-        push @borrowerreserv, $data;
-    }
-    return \@borrowerreserv;
+    my $data = $sth->fetchall_arrayref({});
+    return @$data;
 }
 #-------------------------------------------------------------------------------------