[Koha-cvs] koha/members moremember.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        07/07/17 08:56:06

Modified files:
        members        : moremember.pl 

Log message:
        bugfix, 500 error when member has no reserve

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&r1=1.41&r2=1.42

Patches:
Index: moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- moremember.pl       12 Jul 2007 15:32:23 -0000      1.41
+++ moremember.pl       17 Jul 2007 08:56:06 -0000      1.42
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: moremember.pl,v 1.41 2007/07/12 15:32:23 toins Exp $
+# $Id: moremember.pl,v 1.42 2007/07/17 08:56:06 toins Exp $
 
 =head1 moremember.pl
 
@@ -230,10 +230,6 @@
     #check item is not reserved
     my ( $restype, $reserves ) = CheckReserves( $issue->[$i]{'itemnumber'} );
     if ($restype) {
-
-#              print "<TD><a 
href=/cgi-bin/koha/reserve/request.pl?biblionumber=$issue->[$i]{'biblionumber'}>On
 Request - no renewals</a></td></tr>";
-#  } elsif ($issue->[$i]->{'renewals'} > 0) {
-#      print "<TD>Previously Renewed - no renewals</td></tr>";
         $row{'norenew'} = 1;
     }
     else {
@@ -251,9 +247,13 @@
     # now we show the status of the borrower's reservations
     my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
     my @reservloop;
-    
     foreach my $num_res (@borrowerreserv) {
-               next if not scalar @$num_res;
+        eval{
+            scalar @$num_res;
+        };
+        if($@){
+            next;
+        }
     
         my %getreserv;