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