From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 14 May 2009 12:25:29 +0000 (+0000)
Subject: List::MoreUtils durch einen einfachen ausdruck ersetzt.
X-Git-Tag: release-2.6.0rc1~65
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=09221829d6900f1e502a2abadec5e88b7618a186;p=kivitendo-erp.git

List::MoreUtils durch einen einfachen ausdruck ersetzt.

Fix für den aufgemachten Bug 906.
---

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