summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0e8e6e7)
Signed-off-by: Melia Meggs <melia@test.bywatersolutions.com>
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
my $holdingbranch = $gettitle->{'holdingbranch'};
my $homebranch = $gettitle->{'homebranch'};
my $holdingbranch = $gettitle->{'holdingbranch'};
my $homebranch = $gettitle->{'homebranch'};
- if ($cancelall) {
- my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all );
- push @cancel_result, $res if $res;
- next;
- }
-
my %getreserv = (
itemnumber => $itemnumber,
borrowernum => $borrowernum,
my %getreserv = (
itemnumber => $itemnumber,
borrowernum => $borrowernum,
}
if ($today > $calcDate) {
}
if ($today > $calcDate) {
- push @overloop, \%getreserv;
- $overcount++;
+ if ($cancelall) {
+ my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all );
+ push @cancel_result, $res if $res;
+ next;
+ } else {
+ push @overloop, \%getreserv;
+ $overcount++;
+ }
}else{
push @reservloop, \%getreserv;
$reservcount++;
}else{
push @reservloop, \%getreserv;
$reservcount++;