|
Lines 938-943
Cancels all reserves with an expiration date from before today.
Link Here
|
| 938 |
|
938 |
|
| 939 |
sub CancelExpiredReserves { |
939 |
sub CancelExpiredReserves { |
| 940 |
my $cancellation_reason = shift; |
940 |
my $cancellation_reason = shift; |
|
|
941 |
my $notify = shift; |
| 941 |
my $today = dt_from_string(); |
942 |
my $today = dt_from_string(); |
| 942 |
my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays'); |
943 |
my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays'); |
| 943 |
my $expireWaiting = C4::Context->preference('ExpireReservesMaxPickUpDelay'); |
944 |
my $expireWaiting = C4::Context->preference('ExpireReservesMaxPickUpDelay'); |
|
Lines 956-961
sub CancelExpiredReserves {
Link Here
|
| 956 |
|
957 |
|
| 957 |
my $cancel_params = {}; |
958 |
my $cancel_params = {}; |
| 958 |
$cancel_params->{cancellation_reason} = $cancellation_reason if defined($cancellation_reason); |
959 |
$cancel_params->{cancellation_reason} = $cancellation_reason if defined($cancellation_reason); |
|
|
960 |
$cancel_params->{notify_patron} = $notify if defined($notify); |
| 959 |
if ( defined($hold->found) && $hold->found eq 'W' ) { |
961 |
if ( defined($hold->found) && $hold->found eq 'W' ) { |
| 960 |
$cancel_params->{charge_cancel_fee} = 1; |
962 |
$cancel_params->{charge_cancel_fee} = 1; |
| 961 |
} |
963 |
} |