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

(-)a/C4/Reserves.pm (-13 / +18 lines)
Lines 1199-1204 sub ModReserveAffect { Link Here
1199
1199
1200
    $hold->itemnumber($itemnumber);
1200
    $hold->itemnumber($itemnumber);
1201
1201
1202
    my @reserve_ids;
1203
    push @reserve_ids, $hold->reserve_id;
1204
1202
    if ($transferToDo) {
1205
    if ($transferToDo) {
1203
        $hold->set_transfer();
1206
        $hold->set_transfer();
1204
    } elsif (C4::Context->preference('HoldsNeedProcessingSIP')
1207
    } elsif (C4::Context->preference('HoldsNeedProcessingSIP')
Lines 1215-1220 sub ModReserveAffect { Link Here
1215
        # if this hold was part of a group, cancel other holds in the group
1218
        # if this hold was part of a group, cancel other holds in the group
1216
        my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id });
1219
        my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id });
1217
        foreach my $h ( @holds ) {
1220
        foreach my $h ( @holds ) {
1221
            push @reserve_ids, $h->reserve_id;
1218
            $h->cancel unless $h->reserve_id == $hold->reserve_id;
1222
            $h->cancel unless $h->reserve_id == $hold->reserve_id;
1219
        }
1223
        }
1220
    }
1224
    }
Lines 1226-1243 sub ModReserveAffect { Link Here
1226
      CartToShelf( $itemnumber );
1230
      CartToShelf( $itemnumber );
1227
    }
1231
    }
1228
1232
1229
    my $std = $dbh->prepare(q{
1233
    foreach my $id ( @reserve_ids ) {
1230
        DELETE  q, t
1234
        my $std = $dbh->prepare(q{
1231
        FROM    tmp_holdsqueue q
1235
            DELETE  q, t
1232
        INNER JOIN hold_fill_targets t
1236
            FROM    tmp_holdsqueue q
1233
        ON  q.borrowernumber = t.borrowernumber
1237
            INNER JOIN hold_fill_targets t
1234
            AND q.biblionumber = t.biblionumber
1238
            ON  q.borrowernumber = t.borrowernumber
1235
            AND q.itemnumber = t.itemnumber
1239
                AND q.biblionumber = t.biblionumber
1236
            AND q.item_level_request = t.item_level_request
1240
                AND q.itemnumber = t.itemnumber
1237
            AND q.holdingbranch = t.source_branchcode
1241
                AND q.item_level_request = t.item_level_request
1238
        WHERE t.reserve_id = ?
1242
                AND q.holdingbranch = t.source_branchcode
1239
    });
1243
            WHERE t.reserve_id = ?
1240
    $std->execute($hold->reserve_id);
1244
        });
1245
        $std->execute($id);
1246
    }
1241
1247
1242
    logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) )
1248
    logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) )
1243
        if C4::Context->preference('HoldsLog');
1249
        if C4::Context->preference('HoldsLog');
1244
- 

Return to bug 15516