Lines 257-263
sub AddReserve {
Link Here
|
257 |
)->store(); |
257 |
)->store(); |
258 |
$hold->set_waiting() if $found && $found eq 'W'; |
258 |
$hold->set_waiting() if $found && $found eq 'W'; |
259 |
|
259 |
|
260 |
logaction( 'HOLDS', 'CREATE', $hold->id, Dumper($hold->unblessed) ) |
260 |
logaction( 'HOLDS', 'CREATE', $hold->id, $hold ) |
261 |
if C4::Context->preference('HoldsLog'); |
261 |
if C4::Context->preference('HoldsLog'); |
262 |
|
262 |
|
263 |
my $reserve_id = $hold->id(); |
263 |
my $reserve_id = $hold->id(); |
Lines 1046-1052
sub ModReserve {
Link Here
|
1046 |
$hold->cancel({ cancellation_reason => $cancellation_reason }); |
1046 |
$hold->cancel({ cancellation_reason => $cancellation_reason }); |
1047 |
} |
1047 |
} |
1048 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
1048 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
1049 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
1049 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold ) |
1050 |
if C4::Context->preference('HoldsLog'); |
1050 |
if C4::Context->preference('HoldsLog'); |
1051 |
|
1051 |
|
1052 |
my $properties = { |
1052 |
my $properties = { |
Lines 1108-1114
sub ModReserveFill {
Link Here
|
1108 |
} |
1108 |
} |
1109 |
); |
1109 |
); |
1110 |
|
1110 |
|
1111 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
1111 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold ) |
1112 |
if C4::Context->preference('HoldsLog'); |
1112 |
if C4::Context->preference('HoldsLog'); |
1113 |
|
1113 |
|
1114 |
# FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log |
1114 |
# FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log |
Lines 1236-1242
sub ModReserveAffect {
Link Here
|
1236 |
}); |
1236 |
}); |
1237 |
$std->execute($hold->reserve_id); |
1237 |
$std->execute($hold->reserve_id); |
1238 |
|
1238 |
|
1239 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->get_from_storage->unblessed) ) |
1239 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold->get_from_storage ) |
1240 |
if C4::Context->preference('HoldsLog'); |
1240 |
if C4::Context->preference('HoldsLog'); |
1241 |
|
1241 |
|
1242 |
return; |
1242 |
return; |