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