Revision 09221829
Von Sven Schöling vor fast 16 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
|
use SL::DBUtils;
|
||
|
use SL::FU;
|
||
|
use SL::Notes;
|
||
|
use List::MoreUtils qw(true);
|
||
|
|
||
|
sub get_tuple {
|
||
|
$main::lxdebug->enter_sub();
|
||
| ... | ... | |
|
$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}";
|
||
Auch abrufbar als: Unified diff
List::MoreUtils durch einen einfachen ausdruck ersetzt.
Fix für den aufgemachten Bug 906.