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

(-)a/C4/Members.pm (-3 / +17 lines)
Lines 532-537 sub IssueSlip { Link Here
532
                    lastreneweddate =>
532
                    lastreneweddate =>
533
                      { '>=' => $today_start, '<=' => $today_end, }
533
                      { '>=' => $today_start, '<=' => $today_end, }
534
                }
534
                }
535
            }, {
536
                order_by => [
537
                    { -asc => 'date_due' },
538
                    { -asc => 'issuedate' },
539
                ]
535
            }
540
            }
536
        );
541
        );
537
        my @checkouts;
542
        my @checkouts;
Lines 555-561 sub IssueSlip { Link Here
555
    else {
560
    else {
556
        my $today = Koha::Database->new->schema->storage->datetime_parser->format_datetime( dt_from_string );
561
        my $today = Koha::Database->new->schema->storage->datetime_parser->format_datetime( dt_from_string );
557
        # Checkouts due in the future
562
        # Checkouts due in the future
558
        my $checkouts = $pending_checkouts->search({ date_due => { '>' => $today } });
563
        my $checkouts = $pending_checkouts->search({ date_due => { '>' => $today } }, {
564
                order_by => [
565
                    { -asc => 'date_due' },
566
                    { -asc => 'issuedate' },
567
                ]
568
            });
559
        my @checkouts; my @overdues;
569
        my @checkouts; my @overdues;
560
        while ( my $c = $checkouts->next ) {
570
        while ( my $c = $checkouts->next ) {
561
            my $all = $c->unblessed_all_relateds;
571
            my $all = $c->unblessed_all_relateds;
Lines 568-574 sub IssueSlip { Link Here
568
        }
578
        }
569
579
570
        # Checkouts due in the past are overdues
580
        # Checkouts due in the past are overdues
571
        my $overdues = $pending_checkouts->search({ date_due => { '<=' => $today } });
581
        my $overdues = $pending_checkouts->search({ date_due => { '<=' => $today } }, {
582
                order_by => [
583
                    { -asc => 'date_due' },
584
                    { -asc => 'issuedate' },
585
                ]
586
            });
572
        while ( my $o = $overdues->next ) {
587
        while ( my $o = $overdues->next ) {
573
            my $all = $o->unblessed_all_relateds;
588
            my $all = $o->unblessed_all_relateds;
574
            push @overdues, {
589
            push @overdues, {
575
- 

Return to bug 12388