Solved 179, Dank an Anneli Huth

Spalten Sortierung funktioniert nicht in Tabellen

diff --git a/SL/AP.pm b/SL/AP.pm
index 6475bf2..8be0c8f 100644 (file)
--- 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";
 

diff --git a/SL/AR.pm b/SL/AR.pm
index a6b0f42..c2c81e6 100644 (file)
--- 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";

diff --git a/SL/BP.pm b/SL/BP.pm
index 2122a51..e776954 100644 (file)
--- 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";
 

diff --git a/SL/IC.pm b/SL/IC.pm
index b8815cc..eb230ef 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -934,7 +934,7 @@ sub all_parts {
 
   my $sortorder = $form->{sort};
   $sortorder .= $form->{desc};
-  $sortorder = $form->{sort} unless $sortorder;
+  $sortorder = $form->{sort} if $form->{sort};
 
   my $query = "";
 

diff --git a/SL/OE.pm b/SL/OE.pm
index 4f54150..dc29ffa 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -125,7 +125,7 @@ sub transactions {
 
   my $sortorder = join ', ',
     ("o.id", $form->sort_columns(transdate, $ordnumber, name));
-  $sortorder = $form->{sort} unless $sortorder;
+  $sortorder = $form->{sort} if $form->{sort};
 
   $query .= " AND lower($ordnumber) LIKE '$number'" if $form->{$ordnumber};
   $query .= " AND o.transdate >= '$form->{transdatefrom}'"

diff --git a/SL/RP.pm b/SL/RP.pm
index 6c32832..8879bce 100644 (file)
--- a/SL/RP.pm
+++ b/SL/RP.pm
@@ -2088,7 +2088,7 @@ sub tax_report {
   my $ml = ($form->{db} eq 'ar') ? 1 : -1;
 
   my $sortorder = join ', ', $form->sort_columns(qw(transdate invnumber name));
-  $sortorder = $form->{sort} unless $sortorder;
+  $sortorder = $form->{sort} if $form->{sort};
 
   $query = qq|SELECT a.id, '0' AS invoice, $transdate AS transdate,
               a.invnumber, n.name, a.netamount,