Revision 419b6f00
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 605 | 605 |
my @a = (transdate, invnumber, name); |
| 606 | 606 |
push @a, "employee" if $form->{l_employee};
|
| 607 | 607 |
my $sortorder = join(', ', @a);
|
| 608 |
$sortorder = $form->{sort} if ($form->{sort} && grep({ $_ eq $form->{sort} } @a));
|
|
| 608 |
|
|
| 609 |
if (grep({ $_ eq $form->{sort} }
|
|
| 610 |
qw(id transdate duedate invnumber ordnumber name |
|
| 611 |
datepaid employee shippingpoint shipvia))) {
|
|
| 612 |
$sortorder = $form->{sort};
|
|
| 613 |
} |
|
| 609 | 614 |
|
| 610 | 615 |
$query .= " WHERE $where ORDER by $sortorder"; |
| 611 | 616 |
|
Auch abrufbar als: Unified diff
Erweiterte Liste von erlaubten Spaltennamen, nach denen sortiert werden darf.