|
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'} ) ); |
| 2371 |
- |
|
|