Revision 134120bc
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
SL/AP.pm | ||
---|---|---|
475 | 475 |
} |
476 | 476 |
|
477 | 477 |
my @a = qw(transdate invnumber name); |
478 |
push @a, "employee" if $self->{l_employee};
|
|
478 |
push @a, "employee" if $form->{l_employee};
|
|
479 | 479 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC'; |
480 | 480 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a); |
481 | 481 |
|
Auch abrufbar als: Unified diff
bugs die durch strict aufgedeckt wurden.