Lines 2444-2458
sub IssueSlip {
Link Here
|
2444 |
$dt_issuedate->truncate( to => 'day' ); |
2444 |
$dt_issuedate->truncate( to => 'day' ); |
2445 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
2445 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
2446 |
$dt_lastreneweddate->truncate( to => 'day' ); |
2446 |
$dt_lastreneweddate->truncate( to => 'day' ); |
2447 |
my $dt_date_due = dt_from_string( $it->{'date_due'} ); |
|
|
2448 |
$dt_date_due->truncate( to => 'day' ); |
2449 |
|
2447 |
|
2450 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
2448 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
2451 |
$it->{'now'} = 1; |
2449 |
$it->{'now'} = 1; |
2452 |
} |
2450 |
} |
2453 |
elsif ( $dt_date_due < $now ) { |
|
|
2454 |
$it->{'overdue'} = 1; |
2455 |
} |
2456 |
|
2451 |
|
2457 |
# Recreate date_due as DateTime because we truncated the hours |
2452 |
# Recreate date_due as DateTime because we truncated the hours |
2458 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
2453 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
Lines 2477-2483
sub IssueSlip {
Link Here
|
2477 |
'biblio' => $_, |
2472 |
'biblio' => $_, |
2478 |
'items' => $_, |
2473 |
'items' => $_, |
2479 |
'issues' => $_, |
2474 |
'issues' => $_, |
2480 |
}, grep { !$_->{'overdue'} } @issues ], |
2475 |
}, grep { !$_->{'overdue'} } @issues ], # overdue key created by GetPendingIssues |
2481 |
|
2476 |
|
2482 |
'overdue' => [ map { |
2477 |
'overdue' => [ map { |
2483 |
'biblio' => $_, |
2478 |
'biblio' => $_, |
2484 |
- |
|
|