X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b0cf0374ae17601dec9eacae7588e67976039351..993f05d0c65e9f1c990364303c7474cf0873f429:/SL/AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index a6b0f42d3..c2c81e630 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -443,7 +443,7 @@ sub ar_transactions {
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $form->{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";