|
Lines 906-913
sub ModReserve {
Link Here
|
| 906 |
|
906 |
|
| 907 |
my $rank = $params->{'rank'}; |
907 |
my $rank = $params->{'rank'}; |
| 908 |
my $reserve_id = $params->{'reserve_id'}; |
908 |
my $reserve_id = $params->{'reserve_id'}; |
| 909 |
my $reservedate = $params->{reservedate} || undef; |
|
|
| 910 |
my $expirationdate = $params->{expirationdate} || undef; |
| 911 |
my $branchcode = $params->{'branchcode'}; |
909 |
my $branchcode = $params->{'branchcode'}; |
| 912 |
my $itemnumber = $params->{'itemnumber'}; |
910 |
my $itemnumber = $params->{'itemnumber'}; |
| 913 |
my $suspend_until = $params->{'suspend_until'}; |
911 |
my $suspend_until = $params->{'suspend_until'}; |
|
Lines 936-952
sub ModReserve {
Link Here
|
| 936 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
934 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) |
| 937 |
if C4::Context->preference('HoldsLog'); |
935 |
if C4::Context->preference('HoldsLog'); |
| 938 |
|
936 |
|
| 939 |
$hold->set( |
937 |
my $properties = { |
| 940 |
{ |
938 |
priority => $rank, |
| 941 |
priority => $rank, |
939 |
branchcode => $branchcode, |
| 942 |
reservedate => $reservedate, |
940 |
itemnumber => $itemnumber, |
| 943 |
expirationdate => $expirationdate, |
941 |
found => undef, |
| 944 |
branchcode => $branchcode, |
942 |
waitingdate => undef |
| 945 |
itemnumber => $itemnumber, |
943 |
}; |
| 946 |
found => undef, |
944 |
if (exists $params->{reservedate}) { |
| 947 |
waitingdate => undef |
945 |
$properties->{reservedate} = $params->{reservedate} || undef; |
| 948 |
} |
946 |
} |
| 949 |
)->store(); |
947 |
if (exists $params->{expirationdate}) { |
|
|
948 |
$properties->{expirationdate} = $params->{expirationdate} || undef; |
| 949 |
} |
| 950 |
|
| 951 |
$hold->set($properties)->store(); |
| 950 |
|
952 |
|
| 951 |
if ( defined( $suspend_until ) ) { |
953 |
if ( defined( $suspend_until ) ) { |
| 952 |
if ( $suspend_until ) { |
954 |
if ( $suspend_until ) { |