Revision 09221829
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 44 | 44 |
use SL::DBUtils; |
| 45 | 45 |
use SL::FU; |
| 46 | 46 |
use SL::Notes; |
| 47 |
use List::MoreUtils qw(true); |
|
| 48 | 47 |
|
| 49 | 48 |
sub get_tuple {
|
| 50 | 49 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 705 | 704 |
$form->{sort} = $sortorder;
|
| 706 | 705 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 707 | 706 |
|
| 708 |
if ($sortorder ne 'id' && 1 >= true { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
|
|
| 707 |
if ($sortorder ne 'id' && 1 >= scalar grep { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
|
|
| 709 | 708 |
$sortorder = "lower($sortorder) ${sortdir}";
|
| 710 | 709 |
} else {
|
| 711 | 710 |
$sortorder .= " ${sortdir}";
|
Auch abrufbar als: Unified diff
List::MoreUtils durch einen einfachen ausdruck ersetzt.
Fix für den aufgemachten Bug 906.