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