|
Lines 2436-2450
sub IssueSlip {
Link Here
|
| 2436 |
$dt_issuedate->truncate( to => 'day' ); |
2436 |
$dt_issuedate->truncate( to => 'day' ); |
| 2437 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
2437 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
| 2438 |
$dt_lastreneweddate->truncate( to => 'day' ); |
2438 |
$dt_lastreneweddate->truncate( to => 'day' ); |
| 2439 |
my $dt_date_due = dt_from_string( $it->{'date_due'} ); |
|
|
| 2440 |
$dt_date_due->truncate( to => 'day' ); |
| 2441 |
|
2439 |
|
| 2442 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
2440 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
| 2443 |
$it->{'now'} = 1; |
2441 |
$it->{'now'} = 1; |
| 2444 |
} |
2442 |
} |
| 2445 |
elsif ( $dt_date_due < $now ) { |
|
|
| 2446 |
$it->{'overdue'} = 1; |
| 2447 |
} |
| 2448 |
|
2443 |
|
| 2449 |
# Recreate date_due as DateTime because we truncated the hours |
2444 |
# Recreate date_due as DateTime because we truncated the hours |
| 2450 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
2445 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
|
Lines 2469-2475
sub IssueSlip {
Link Here
|
| 2469 |
'biblio' => $_, |
2464 |
'biblio' => $_, |
| 2470 |
'items' => $_, |
2465 |
'items' => $_, |
| 2471 |
'issues' => $_, |
2466 |
'issues' => $_, |
| 2472 |
}, grep { !$_->{'overdue'} } @issues ], |
2467 |
}, grep { !$_->{'overdue'} } @issues ], # overdue key created by GetPendingIssues |
| 2473 |
|
2468 |
|
| 2474 |
'overdue' => [ map { |
2469 |
'overdue' => [ map { |
| 2475 |
'biblio' => $_, |
2470 |
'biblio' => $_, |
| 2476 |
- |
|
|