Die Sortierung soll standardmäßig aufsteigend erfolgen.

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 @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} }
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
   if (grep({ $_ eq $form->{sort} }

diff --git a/SL/AR.pm b/SL/AR.pm
index d9a42ce362a3038d49a1cccf5284670b5d99a3fb..e37128c194f4b53111f9af6b94696eb792563feb 100644 (file)
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -468,7 +468,7 @@ sub ar_transactions {
 
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $form->{l_employee};
 
   my @a = (transdate, invnumber, name);
   push @a, "employee" if $form->{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} }
   my $sortorder = join(', ', map { "$_ $sortdir" } @a);
 
   if (grep({ $_ eq $form->{sort} }

diff --git a/SL/DO.pm b/SL/DO.pm
index 390f51f32b89f7064b9d2ec71e6b8d7c478df06c..2ad076a80a2ef7562aaaa840032fa81b96b51335 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -142,7 +142,7 @@ sub transactions {
     "transaction_description" => "dord.transaction_description"
   );
 
     "transaction_description" => "dord.transaction_description"
   );
 

-  my $sortdir   = $form->{sortdir} ? 'ASC' : 'DESC';
+  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';

   my $sortorder = "dord.id";
   if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {
     $sortorder = $allowed_sort_columns{$form->{sort}};
   my $sortorder = "dord.id";
   if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {
     $sortorder = $allowed_sort_columns{$form->{sort}};

diff --git a/SL/OE.pm b/SL/OE.pm
index faae5d6f7a1ef45057ad8a8349273ce644d414c1..8465901669bb275fd9d406da5dd1eb8dbfe9470a 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -148,7 +148,7 @@ sub transactions {
     push(@values, '%' . $form->{transaction_description} . '%');
   }
 
     push(@values, '%' . $form->{transaction_description} . '%');
   }
 

-  my $sortdir   = $form->{sortdir} ? 'ASC' : 'DESC';
+  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';

   my $sortorder = join(', ', map { "${_} ${sortdir} " } ("o.id", $form->sort_columns("transdate", $ordnumber, "name")));
   my %allowed_sort_columns = (
     "transdate"               => "o.transdate",
   my $sortorder = join(', ', map { "${_} ${sortdir} " } ("o.id", $form->sort_columns("transdate", $ordnumber, "name")));
   my %allowed_sort_columns = (
     "transdate"               => "o.transdate",