Revision 4e953c79
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); |
|
| 47 | 48 |
|
| 48 | 49 |
sub get_tuple {
|
| 49 | 50 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 704 | 705 |
$form->{sort} = $sortorder;
|
| 705 | 706 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 706 | 707 |
|
| 707 |
if ($sortorder ne 'id') {
|
|
| 708 |
if ($sortorder ne 'id' && 1 >= true { $form->{$_} } qw(l_ordnumber l_quonumber l_invnumber)) {
|
|
| 708 | 709 |
$sortorder = "lower($sortorder) ${sortdir}";
|
| 709 | 710 |
} else {
|
| 710 | 711 |
$sortorder .= " ${sortdir}";
|
Auch abrufbar als: Unified diff
lower(spalte) und ähnliche ausdrücke dürfen nicht in UNIONS zum sortieren benutzt werden.
Fix für Bug 981