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

(-)a/C4/Members.pm (-7 / +1 lines)
Lines 2436-2450 sub IssueSlip { Link Here
2436
        $dt_issuedate->truncate( to => 'day' );
2436
        $dt_issuedate->truncate( to => 'day' );
2437
        my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} );
2437
        my $dt_lastreneweddate = dt_from_string( $it->{'lastreneweddate'} );
2438
        $dt_lastreneweddate->truncate( to => 'day' );
2438
        $dt_lastreneweddate->truncate( to => 'day' );
2439
        my $dt_date_due = dt_from_string( $it->{'date_due'} );
2440
        $dt_date_due->truncate( to => 'day' );
2441
2439
2442
        if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) {
2440
        if ( $dt_issuedate == $now || $dt_lastreneweddate == $now ) {
2443
            $it->{'now'} = 1;
2441
            $it->{'now'} = 1;
2444
        }
2442
        }
2445
        elsif ( $dt_date_due < $now ) {
2446
            $it->{'overdue'} = 1;
2447
        }
2448
2443
2449
        # Recreate date_due as DateTime because we truncated the hours
2444
        # Recreate date_due as DateTime because we truncated the hours
2450
        $it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) );
2445
        $it->{'date_due'} = output_pref( dt_from_string( $it->{'date_due'} ) );
Lines 2469-2475 sub IssueSlip { Link Here
2469
                'biblio' => $_,
2464
                'biblio' => $_,
2470
                'items'  => $_,
2465
                'items'  => $_,
2471
                'issues' => $_,
2466
                'issues' => $_,
2472
            }, grep { !$_->{'overdue'} } @issues ],
2467
            }, grep { !$_->{'overdue'} } @issues ], # overdue key created by GetPendingIssues
2473
2468
2474
            'overdue' => [ map {
2469
            'overdue' => [ map {
2475
                'biblio' => $_,
2470
                'biblio' => $_,
2476
- 

Return to bug 12847