Lines 1127-1135
sub ModReserveFill {
Link Here
|
1127 |
if C4::Context->preference('HoldsLog'); |
1127 |
if C4::Context->preference('HoldsLog'); |
1128 |
|
1128 |
|
1129 |
# if this hold was part of a group, cancel other holds in the group |
1129 |
# if this hold was part of a group, cancel other holds in the group |
1130 |
my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id }); |
1130 |
if ( $hold->hold_group_id ) { |
1131 |
foreach my $h ( @holds ) { |
1131 |
my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id }); |
1132 |
$h->cancel unless $h->reserve_id == $hold->reserve_id; |
1132 |
foreach my $h ( @holds ) { |
|
|
1133 |
$h->cancel unless $h->reserve_id == $hold->reserve_id; |
1134 |
} |
1133 |
} |
1135 |
} |
1134 |
|
1136 |
|
1135 |
# FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log |
1137 |
# FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log |
Lines 1240-1249
sub ModReserveAffect {
Link Here
|
1240 |
$transfer->receive if $transfer; |
1242 |
$transfer->receive if $transfer; |
1241 |
|
1243 |
|
1242 |
# if this hold was part of a group, cancel other holds in the group |
1244 |
# if this hold was part of a group, cancel other holds in the group |
1243 |
my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id }); |
1245 |
if ( $hold->hold_group_id ) { |
1244 |
foreach my $h ( @holds ) { |
1246 |
my @holds = Koha::Holds->search({ hold_group_id => $hold->hold_group_id }); |
1245 |
push @reserve_ids, $h->reserve_id; |
1247 |
foreach my $h ( @holds ) { |
1246 |
$h->cancel unless $h->reserve_id == $hold->reserve_id; |
1248 |
push @reserve_ids, $h->reserve_id; |
|
|
1249 |
$h->cancel unless $h->reserve_id == $hold->reserve_id; |
1250 |
} |
1247 |
} |
1251 |
} |
1248 |
} |
1252 |
} |
1249 |
|
1253 |
|