View | Details | Raw Unified | Return to bug 12847
Collapse All | Expand All

(-)a/C4/Members.pm (-7 / +1 lines)
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
- 

Return to bug 12847