Fix for 1477, reserves/holds not showing in moremember.pl
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
parent
701d6ef020
commit
21afa5d2d5
1 changed files with 3 additions and 9 deletions
|
@ -33,8 +33,8 @@
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use CGI;
|
use CGI;
|
||||||
use C4::Auth;
|
|
||||||
use C4::Context;
|
use C4::Context;
|
||||||
|
use C4::Auth;
|
||||||
use C4::Output;
|
use C4::Output;
|
||||||
use C4::Members;
|
use C4::Members;
|
||||||
use C4::Dates;
|
use C4::Dates;
|
||||||
|
@ -220,13 +220,7 @@ if ($borrowernumber) {
|
||||||
my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
|
my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
|
||||||
my @reservloop;
|
my @reservloop;
|
||||||
foreach my $num_res (@borrowerreserv) {
|
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 %getreserv;
|
||||||
|
|
||||||
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
|
my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
|
||||||
my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
|
my $itemtypeinfo = getitemtypeinfo( $getiteminfo->{'itemtype'} );
|
||||||
my ( $transfertwhen, $transfertfrom, $transfertto ) =
|
my ( $transfertwhen, $transfertfrom, $transfertto ) =
|
||||||
|
@ -235,8 +229,8 @@ if ($borrowernumber) {
|
||||||
foreach (qw(waiting transfered nottransfered)) {
|
foreach (qw(waiting transfered nottransfered)) {
|
||||||
$getreserv{$_} = 0;
|
$getreserv{$_} = 0;
|
||||||
}
|
}
|
||||||
|
# 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";
|
# $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 )) {
|
foreach (qw(biblionumber title author barcodereserv itemcallnumber )) {
|
||||||
$getreserv{$_} = $getiteminfo->{$_};
|
$getreserv{$_} = $getiteminfo->{$_};
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue