From 0bc359145243d7f616825df11f68b3e0447c83ac Mon Sep 17 00:00:00 2001 From: toins Date: Thu, 12 Jul 2007 15:32:23 +0000 Subject: [PATCH] bug fixing: there was a 500 error when GetReservesFromBorrowernumber returns an empty array. --- members/moremember.pl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/members/moremember.pl b/members/moremember.pl index 0fa672a2cc..7df572cfbb 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -251,8 +251,12 @@ if ($borrowernumber) { # 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; + my %getreserv; + my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} ); my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} ); my ( $transfertwhen, $transfertfrom, $transfertto ) = -- 2.39.5