Lines 89-101
foreach my $num (@getreserves) {
Link Here
|
89 |
|
89 |
|
90 |
my $itemnumber = $num->{'itemnumber'}; |
90 |
my $itemnumber = $num->{'itemnumber'}; |
91 |
my $gettitle = GetBiblioFromItemNumber( $itemnumber ); |
91 |
my $gettitle = GetBiblioFromItemNumber( $itemnumber ); |
92 |
my $borrowernum = $num->{'borrowernumber'}; |
92 |
my $borrowernumber = $num->{'borrowernumber'}; |
93 |
my $holdingbranch = $gettitle->{'holdingbranch'}; |
93 |
my $holdingbranch = $gettitle->{'holdingbranch'}; |
94 |
my $homebranch = $gettitle->{'homebranch'}; |
94 |
my $homebranch = $gettitle->{'homebranch'}; |
95 |
|
95 |
|
96 |
my %getreserv = ( |
96 |
my %getreserv = ( |
97 |
itemnumber => $itemnumber, |
97 |
itemnumber => $itemnumber, |
98 |
borrowernum => $borrowernum, |
98 |
borrowernum => $borrowernumber, |
99 |
); |
99 |
); |
100 |
|
100 |
|
101 |
# fix up item type for display |
101 |
# fix up item type for display |
Lines 109-115
foreach my $num (@getreserves) {
Link Here
|
109 |
$getreserv{maxpickupdate} = $maxpickupdate; |
109 |
$getreserv{maxpickupdate} = $maxpickupdate; |
110 |
if ( DateTime->compare( $today, $maxpickupdate ) == 1 ) { |
110 |
if ( DateTime->compare( $today, $maxpickupdate ) == 1 ) { |
111 |
if ($cancelall) { |
111 |
if ($cancelall) { |
112 |
my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
112 |
my $res = cancel( $itemnumber, $borrowernumber, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
113 |
push @cancel_result, $res if $res; |
113 |
push @cancel_result, $res if $res; |
114 |
next; |
114 |
next; |
115 |
} else { |
115 |
} else { |
116 |
- |
|
|