From 4e953c795c21e894ffa9e72840d663bc05e01179 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 14 May 2009 11:21:09 +0000
Subject: [PATCH] =?utf8?q?lower(spalte)=20und=20=C3=A4hnliche=20ausdr?=
 =?utf8?q?=C3=BCcke=20d=C3=BCrfen=20nicht=20in=20UNIONS=20zum=20sortieren?=
 =?utf8?q?=20benutzt=20werden.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Fix für Bug 981
---
 SL/CT.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SL/CT.pm b/SL/CT.pm
index 1522e0f83..606c46a49 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -44,6 +44,7 @@ use SL::CVar;
 use SL::DBUtils;
 use SL::FU;
 use SL::Notes;
+use List::MoreUtils qw(true);
 
 sub get_tuple {
   $main::lxdebug->enter_sub();
@@ -704,7 +705,7 @@ sub search {
   $form->{sort} = $sortorder;
   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
 
-if ($sortorder ne 'id') {
+  if ($sortorder ne 'id' && 1 >= true { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
     $sortorder  = "lower($sortorder) ${sortdir}";
   } else {
     $sortorder .= " ${sortdir}";
-- 
2.20.1