|
Lines 1031-1037
sub ModReserve {
Link Here
|
| 1031 |
my $biblionumber = $params->{'biblionumber'}; |
1031 |
my $biblionumber = $params->{'biblionumber'}; |
| 1032 |
my $cancellation_reason = $params->{'cancellation_reason'}; |
1032 |
my $cancellation_reason = $params->{'cancellation_reason'}; |
| 1033 |
|
1033 |
|
| 1034 |
return if $rank eq "W"; |
|
|
| 1035 |
return if $rank eq "n"; |
1034 |
return if $rank eq "n"; |
| 1036 |
|
1035 |
|
| 1037 |
return unless ( $reserve_id || ( $borrowernumber && ( $biblionumber || $itemnumber ) ) ); |
1036 |
return unless ( $reserve_id || ( $borrowernumber && ( $biblionumber || $itemnumber ) ) ); |
|
Lines 1049-1054
sub ModReserve {
Link Here
|
| 1049 |
if ( $rank eq "del" ) { |
1048 |
if ( $rank eq "del" ) { |
| 1050 |
$hold->cancel({ cancellation_reason => $cancellation_reason }); |
1049 |
$hold->cancel({ cancellation_reason => $cancellation_reason }); |
| 1051 |
} |
1050 |
} |
|
|
1051 |
elsif ($hold->found && $hold->priority eq '0') { |
| 1052 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
| 1053 |
if C4::Context->preference('HoldsLog'); |
| 1054 |
|
| 1055 |
# The only column that can be updated for a found hold is the expiration date |
| 1056 |
my $date = $params->{expirationdate}; |
| 1057 |
if ($date) { |
| 1058 |
$hold->expirationdate(dt_from_string($date))->store(); |
| 1059 |
} |
| 1060 |
} |
| 1052 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
1061 |
elsif ($rank =~ /^\d+/ and $rank > 0) { |
| 1053 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
1062 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
| 1054 |
if C4::Context->preference('HoldsLog'); |
1063 |
if C4::Context->preference('HoldsLog'); |
| 1055 |
- |
|
|