|
Lines 37-44
use C4::Log;
Link Here
|
| 37 |
|
37 |
|
| 38 |
cronlogaction(); |
38 |
cronlogaction(); |
| 39 |
|
39 |
|
| 40 |
my @recalls = Koha::Recalls->search({ old => undef })->as_list; |
40 |
my $recalls = Koha::Recalls->search({ old => undef }); |
| 41 |
foreach my $recall (@recalls) { |
41 |
while( my $recall = $recalls->next ) { |
| 42 |
if ( ( $recall->requested or $recall->overdue ) and $recall->expirationdate and dt_from_string( $recall->expirationdate ) < dt_from_string() ){ |
42 |
if ( ( $recall->requested or $recall->overdue ) and $recall->expirationdate and dt_from_string( $recall->expirationdate ) < dt_from_string() ){ |
| 43 |
# recall is requested or overdue and has surpassed the specified expiration date |
43 |
# recall is requested or overdue and has surpassed the specified expiration date |
| 44 |
$recall->set_expired({ interface => 'COMMANDLINE' }); |
44 |
$recall->set_expired({ interface => 'COMMANDLINE' }); |