Die Sortierung soll standardmäßig aufsteigend erfolgen.

[mfinanz.git] / SL / AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index e9e1a7ecda9b48489a21a9f24cf80c2037fdb971..24054c8cb5b978945b4dd222a5a329f3870bcd63 100644 (file)
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -464,7 +464,7 @@ sub ap_transactions {
 
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $self->{l_employee};
-  my $sortdir   = $form->{sortdir} ? 'ASC' : 'DESC';
+  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
   if (grep({ $_ eq $form->{sort} }