|
Lines 929-934
Cancels all reserves with an expiration date from before today.
Link Here
|
| 929 |
|
929 |
|
| 930 |
sub CancelExpiredReserves { |
930 |
sub CancelExpiredReserves { |
| 931 |
my $cancellation_reason = shift; |
931 |
my $cancellation_reason = shift; |
|
|
932 |
my $notify = shift; |
| 932 |
my $today = dt_from_string(); |
933 |
my $today = dt_from_string(); |
| 933 |
my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays'); |
934 |
my $cancel_on_holidays = C4::Context->preference('ExpireReservesOnHolidays'); |
| 934 |
my $expireWaiting = C4::Context->preference('ExpireReservesMaxPickUpDelay'); |
935 |
my $expireWaiting = C4::Context->preference('ExpireReservesMaxPickUpDelay'); |
|
Lines 947-952
sub CancelExpiredReserves {
Link Here
|
| 947 |
|
948 |
|
| 948 |
my $cancel_params = {}; |
949 |
my $cancel_params = {}; |
| 949 |
$cancel_params->{cancellation_reason} = $cancellation_reason if defined($cancellation_reason); |
950 |
$cancel_params->{cancellation_reason} = $cancellation_reason if defined($cancellation_reason); |
|
|
951 |
$cancel_params->{notify_patron} = $notify if defined($notify); |
| 950 |
if ( defined($hold->found) && $hold->found eq 'W' ) { |
952 |
if ( defined($hold->found) && $hold->found eq 'W' ) { |
| 951 |
$cancel_params->{charge_cancel_fee} = 1; |
953 |
$cancel_params->{charge_cancel_fee} = 1; |
| 952 |
} |
954 |
} |