From 21afa5d2d537942728b4691c1f0299cac2dc999a Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Fri, 19 Oct 2007 23:25:38 -0500 Subject: [PATCH] Fix for 1477, reserves/holds not showing in moremember.pl Signed-off-by: Joshua Ferraro --- members/moremember.pl | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/members/moremember.pl b/members/moremember.pl index 2542a7042e..35edd8c823 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -33,8 +33,8 @@ use strict; use CGI; -use C4::Auth; use C4::Context; +use C4::Auth; use C4::Output; use C4::Members; use C4::Dates; @@ -220,13 +220,7 @@ if ($borrowernumber) { my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber ); my @reservloop; foreach my $num_res (@borrowerreserv) { - eval{ - scalar @$num_res; - }; - ($@) and next; # is this eval just a dumb way of checking to see if the arrays have any elements? - my %getreserv; - my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} ); my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} ); my ( $transfertwhen, $transfertfrom, $transfertto ) = @@ -235,8 +229,8 @@ if ($borrowernumber) { foreach (qw(waiting transfered nottransfered)) { $getreserv{$_} = 0; } - - $getreserv{reservedate} = C4::Dates->new($num_res->{'reservedate'})->output() or die "Cannot get new($num_res->{'reservedate'}) from C4::Dates"; +# Joe this line fails, can you take a look please +# $getreserv{reservedate} = C4::Dates->new($num_res->{'reservedate'})->output() or die "Cannot get new($num_res->{'reservedate'}) from C4::Dates"; foreach (qw(biblionumber title author barcodereserv itemcallnumber )) { $getreserv{$_} = $getiteminfo->{$_}; } -- 2.39.5