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

(-)a/C4/Members.pm (-2 / +4 lines)
Lines 1170-1175 sub IssueSlip { Link Here
1170
    my @issues = @{ GetPendingIssues($borrowernumber) };
1170
    my @issues = @{ GetPendingIssues($borrowernumber) };
1171
1171
1172
    for my $issue (@issues) {
1172
    for my $issue (@issues) {
1173
        $issue->{date_due_orig} = $issue->{date_due};
1173
        $issue->{date_due} = $issue->{date_due_sql};
1174
        $issue->{date_due} = $issue->{date_due_sql};
1174
        if ($quickslip) {
1175
        if ($quickslip) {
1175
            my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
1176
            my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
Lines 1182-1188 sub IssueSlip { Link Here
1182
1183
1183
    # Sort on timestamp then on issuedate (useful for tests and could be if modified in a batch
1184
    # Sort on timestamp then on issuedate (useful for tests and could be if modified in a batch
1184
    @issues = sort {
1185
    @issues = sort {
1185
        my $s = $b->{timestamp} <=> $a->{timestamp};
1186
        my $s = $a->{date_due_orig} <=> $b->{date_due_orig};
1187
        $s == 0 ?
1188
             $b->{timestamp} <=> $a->{timestamp} : $s;
1186
        $s == 0 ?
1189
        $s == 0 ?
1187
             $b->{issuedate} <=> $a->{issuedate} : $s;
1190
             $b->{issuedate} <=> $a->{issuedate} : $s;
1188
    } @issues;
1191
    } @issues;
1189
- 

Return to bug 12388