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