From 9b9cb5fed274ae0c71934c3b43bcaef3b9806392 Mon Sep 17 00:00:00 2001 From: Pasi Kallinen Date: Mon, 23 Jun 2014 14:17:17 +0300 Subject: [PATCH] Bug 12388: Sort issue slip issues by date due --- C4/Members.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Members.pm b/C4/Members.pm index 879bb1a..6cc72e9 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -2348,9 +2348,10 @@ sub IssueSlip { $it->{'overdue'} = 1; } my $dt = dt_from_string( $it->{'date_due'} ); + $it->{'date_due_orig'} = $it->{'date_due'}; $it->{'date_due'} = output_pref( { dt => $dt, dateonly => 1 } ); } - my @issues = sort { $b->{'timestamp'} <=> $a->{'timestamp'} } @$issueslist; + my @issues = sort { $a->{'date_due_orig'} <=> $b->{'date_due_orig'} || $b->{'timestamp'} <=> $a->{'timestamp'} } @$issueslist; my ($letter_code, %repeat); if ( $quickslip ) { -- 1.9.1