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