Revision c654c46b
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 464 | 464 |
|
| 465 | 465 |
my @a = (transdate, invnumber, name); |
| 466 | 466 |
push @a, "employee" if $self->{l_employee};
|
| 467 |
my $sortdir = $form->{sortdir} ? 'ASC' : 'DESC';
|
|
| 467 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
|
| 468 | 468 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
| 469 | 469 |
|
| 470 | 470 |
if (grep({ $_ eq $form->{sort} }
|
Auch abrufbar als: Unified diff
Die Sortierung soll standardmäßig aufsteigend erfolgen.