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

(-)a/C4/Members.pm (-7 / +1 lines)
Lines 2444-2458 sub IssueSlip { Link Here
2444
        $dt_issuedate->truncate( to => 'day' );
2444
        $dt_issuedate->truncate( to => 'day' );
2445
        my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} );
2445
        my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} );
2446
        $dt_lastreneweddate->truncate( to => 'day' );
2446
        $dt_lastreneweddate->truncate( to => 'day' );
2447
        my $dt_date_due = dt_from_string( $it->{'date_due'} );
2448
        $dt_date_due->truncate( to => 'day' );
2449
2447
2450
        if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) {
2448
        if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) {
2451
            $it->{'now'} = 1;
2449
            $it->{'now'} = 1;
2452
        }
2450
        }
2453
        elsif ( $dt_date_due < $now ) {
2454
            $it->{'overdue'} = 1;
2455
        }
2456
2451
2457
        # Recreate date_due as DateTime because we truncated the hours
2452
        # Recreate date_due as DateTime because we truncated the hours
2458
        $it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) );
2453
        $it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) );
Lines 2477-2483 sub IssueSlip { Link Here
2477
                'biblio' => $_,
2472
                'biblio' => $_,
2478
                'items'  => $_,
2473
                'items'  => $_,
2479
                'issues' => $_,
2474
                'issues' => $_,
2480
            }, grep { !$_->{'overdue'} } @issues ],
2475
            }, grep { !$_->{'overdue'} } @issues ], # overdue key created by GetPendingIssues
2481
2476
2482
            'overdue' => [ map {
2477
            'overdue' => [ map {
2483
                'biblio' => $_,
2478
                'biblio' => $_,
2484
- 

Return to bug 12847