From 13df1e06bae9bab2067e97435afe3f8d7e616843 Mon Sep 17 00:00:00 2001 From: Martin Helmling Date: Wed, 8 Jan 2014 12:00:41 +0100 Subject: [PATCH] =?utf8?q?Die=20Reihenfolge=20der=20Buchungen=20an=20einem?= =?utf8?q?=20Tag=20werden=20nun=20zus=C3=A4tzlich=20nach=20Referenzen=20so?= =?utf8?q?rtiert,=20bzw=20wenn=20nach=20Refernzen=20Sortiert=20wird=20wird?= =?utf8?q?=20als=20zweite=20Sortierregel=20nach=20Datum=20sortiert.=20Der?= =?utf8?q?=20gemeldete=20Fehler=20#2133=20konnte=20nur=20reproduziert=20we?= =?utf8?q?rden,=20wenn=20im=20Nachhinein=20=C3=84nderungen=20am=20Buchungs?= =?utf8?q?datum=20gemacht=20wurden.=20Somit=20schloss=20sich=20auch=20aus,?= =?utf8?q?=20nach=20internen=20ids=20der=20Datenbank=20zu=20sortieren.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Behebt #2133 --- SL/CA.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/CA.pm b/SL/CA.pm index cee831609..983f9bd04 100644 --- a/SL/CA.pm +++ b/SL/CA.pm @@ -366,8 +366,8 @@ sub all_transactions { } my $sort = grep({ $form->{sort} eq $_ } qw(transdate reference description)) ? $form->{sort} : 'transdate'; - - $query .= qq|ORDER BY $sort|; + my $sort2 = ($sort eq 'reference')?'transdate':'reference'; + $query .= qq|ORDER BY $sort , $sort2 |; my $sth = prepare_execute_query($form, $dbh, $query, @values); #get detail information for each transaction -- 2.20.1