Revision 679db39f
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 468 | 468 |
|
| 469 | 469 |
my @a = (transdate, invnumber, name); |
| 470 | 470 |
push @a, "employee" if $form->{l_employee};
|
| 471 |
my $sortorder = join(', ', @a);
|
|
| 471 |
my $sortdir = $form->{sortdir} ? 'ASC' : 'DESC';
|
|
| 472 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
|
| 472 | 473 |
|
| 473 | 474 |
if (grep({ $_ eq $form->{sort} }
|
| 474 | 475 |
qw(id transdate duedate invnumber ordnumber name |
| 475 | 476 |
datepaid employee shippingpoint shipvia))) {
|
| 476 |
$sortorder = $form->{sort};
|
|
| 477 |
$sortorder = $form->{sort} . " $sortdir";
|
|
| 477 | 478 |
} |
| 478 | 479 |
|
| 479 |
$query .= " WHERE $where ORDER by $sortorder";
|
|
| 480 |
$query .= " WHERE $where ORDER BY $sortorder";
|
|
| 480 | 481 |
|
| 481 | 482 |
my $sth = $dbh->prepare($query); |
| 482 | 483 |
$sth->execute(@values) || |
Auch abrufbar als: Unified diff
Sortierung in Berichten über Ausgangsrechnungen/Debitorenbuchungen auch auf- und absteigbar sortierbar gemacht.