|
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 |
- |
|
|