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