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

(-)a/recalls/recalls_waiting.pl (-4 / +3 lines)
Lines 55-64 if ( $op eq 'list' ) { Link Here
55
    my $borrower = Koha::Patrons->find( $loggedinuser );
55
    my $borrower = Koha::Patrons->find( $loggedinuser );
56
    my @over;
56
    my @over;
57
    my $maxdelay = C4::Context->preference('RecallsMaxPickUpDelay') || 7;
57
    my $maxdelay = C4::Context->preference('RecallsMaxPickUpDelay') || 7;
58
    my $today = dt_from_string();
58
    my $today = dt_from_string()->truncate( to  => 'day' );
59
    foreach my $r ( @recalls ){
59
    foreach my $r ( @recalls ){
60
        my $lastwaitingday = dt_from_string( $r->waiting_date )->add( days => $maxdelay );
60
        my $lastwaitingday = dt_from_string( $r->waiting_date )->add( days => $maxdelay )->truncate( to => 'day' );
61
        if ( $today > $lastwaitingday ){
61
        if ( $today >= $lastwaitingday ){
62
            push @over, $r;
62
            push @over, $r;
63
        }
63
        }
64
    }
64
    }
65
- 

Return to bug 33992