View | Details | Raw Unified | Return to bug 8213
Collapse All | Expand All

(-)a/circ/waitingreserves.pl (-9 / +8 lines)
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
- 

Return to bug 8213