View | Details | Raw Unified | Return to bug 19532
Collapse All | Expand All

(-)a/misc/cronjobs/recalls/expire_recalls.pl (-2 / +2 lines)
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' });
(-)a/misc/cronjobs/recalls/overdue_recalls.pl (-3 / +2 lines)
Lines 36-43 use C4::Log; Link Here
36
36
37
cronlogaction();
37
cronlogaction();
38
38
39
my @recalls = Koha::Recalls->search({ status => 'R' })->as_list;
39
my $recalls = Koha::Recalls->search({ status => 'R' });
40
foreach my $recall (@recalls){
40
while( my $recall = $recalls->next ) {
41
    if ( $recall->should_be_overdue ){
41
    if ( $recall->should_be_overdue ){
42
        $recall->set_overdue({ interface => 'COMMANDLINE' });
42
        $recall->set_overdue({ interface => 'COMMANDLINE' });
43
    }
43
    }
44
- 

Return to bug 19532