|
Lines 2356-2370
sub IssueSlip {
Link Here
|
| 2356 |
$dt_issuedate->truncate( to => 'day' ); |
2356 |
$dt_issuedate->truncate( to => 'day' ); |
| 2357 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
2357 |
my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} ); |
| 2358 |
$dt_lastreneweddate->truncate( to => 'day' ); |
2358 |
$dt_lastreneweddate->truncate( to => 'day' ); |
| 2359 |
my $dt_date_due = dt_from_string( $it->{'date_due'} ); |
|
|
| 2360 |
$dt_date_due->truncate( to => 'day' ); |
| 2361 |
|
2359 |
|
| 2362 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
2360 |
if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) { |
| 2363 |
$it->{'now'} = 1; |
2361 |
$it->{'now'} = 1; |
| 2364 |
} |
2362 |
} |
| 2365 |
elsif ( $dt_date_due < $now ) { |
|
|
| 2366 |
$it->{'overdue'} = 1; |
| 2367 |
} |
| 2368 |
|
2363 |
|
| 2369 |
# Recreate date_due as DateTime because we truncated the hours |
2364 |
# Recreate date_due as DateTime because we truncated the hours |
| 2370 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
2365 |
$it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) ); |
|
Lines 2389-2395
sub IssueSlip {
Link Here
|
| 2389 |
'biblio' => $_, |
2384 |
'biblio' => $_, |
| 2390 |
'items' => $_, |
2385 |
'items' => $_, |
| 2391 |
'issues' => $_, |
2386 |
'issues' => $_, |
| 2392 |
}, grep { !$_->{'overdue'} } @issues ], |
2387 |
}, grep { !$_->{'overdue'} } @issues ], # overdue key created by GetPendingIssues |
| 2393 |
|
2388 |
|
| 2394 |
'overdue' => [ map { |
2389 |
'overdue' => [ map { |
| 2395 |
'biblio' => $_, |
2390 |
'biblio' => $_, |
| 2396 |
- |
|
|