|
Lines 96-107
foreach my $num (@getreserves) {
Link Here
|
| 96 |
my $holdingbranch = $gettitle->{'holdingbranch'}; |
96 |
my $holdingbranch = $gettitle->{'holdingbranch'}; |
| 97 |
my $homebranch = $gettitle->{'homebranch'}; |
97 |
my $homebranch = $gettitle->{'homebranch'}; |
| 98 |
|
98 |
|
| 99 |
if ($cancelall) { |
|
|
| 100 |
my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
| 101 |
push @cancel_result, $res if $res; |
| 102 |
next; |
| 103 |
} |
| 104 |
|
| 105 |
my %getreserv = ( |
99 |
my %getreserv = ( |
| 106 |
itemnumber => $itemnumber, |
100 |
itemnumber => $itemnumber, |
| 107 |
borrowernum => $borrowernum, |
101 |
borrowernum => $borrowernum, |
|
Lines 139-146
foreach my $num (@getreserves) {
Link Here
|
| 139 |
} |
133 |
} |
| 140 |
|
134 |
|
| 141 |
if ($today > $calcDate) { |
135 |
if ($today > $calcDate) { |
| 142 |
push @overloop, \%getreserv; |
136 |
if ($cancelall) { |
| 143 |
$overcount++; |
137 |
my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
|
|
138 |
push @cancel_result, $res if $res; |
| 139 |
next; |
| 140 |
} else { |
| 141 |
push @overloop, \%getreserv; |
| 142 |
$overcount++; |
| 143 |
} |
| 144 |
}else{ |
144 |
}else{ |
| 145 |
push @reservloop, \%getreserv; |
145 |
push @reservloop, \%getreserv; |
| 146 |
$reservcount++; |
146 |
$reservcount++; |
| 147 |
- |
|
|