|
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 |
- |
|
|