X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d319704a66e9be64da837ccea10af6774c2b0838..fd8558c8cfd92d3399401a7ca27cbb0faf2a021d:/SL/BP.pm

diff --git a/SL/BP.pm b/SL/BP.pm
index 2122a51d7..e77695426 100644
--- a/SL/BP.pm
+++ b/SL/BP.pm
@@ -185,7 +185,7 @@ sub get_spoolfiles {
 
   my @a = (transdate, $invnumber, name);
   my $sortorder = join ', ', $form->sort_columns(@a);
-  $sortorder = $form->{sort} unless $sortorder;
+  $sortorder = $form->{sort} if $form->{sort};
 
   $query .= " ORDER by $sortorder";