X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/30175d8928a88a8b7f224a4515e192e66fa37656..89903af3c6f64c4d14e97d6654d1bb247f67a31f:/SL/AP.pm

diff --git a/SL/AP.pm b/SL/AP.pm
index 6475bf2ec..8be0c8f81 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -448,8 +448,8 @@ sub ap_transactions {
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $self->{l_employee};
   my $sortorder = join ', ', $form->sort_columns(@a);
-  $sortorder = $form->{sort} unless $sortorder;
-
+  $sortorder = $form->{sort} if $form->{sort};
+  
   $query .= "WHERE $where
              ORDER by $sortorder";