Revision abaf5db5
Von Bernd Bleßmann vor mehr als 5 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 682 | 682 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
| 683 | 683 |
my $sortorder = join(', ', map { "$_ $sortdir" } @a);
|
| 684 | 684 |
|
| 685 |
if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber cusordnumber name datepaid employee shippingpoint shipvia transaction_description))) {
|
|
| 685 |
if (grep({ $_ eq $form->{sort} } qw(id transdate duedate invnumber ordnumber cusordnumber name datepaid employee shippingpoint shipvia transaction_description department))) {
|
|
| 686 | 686 |
$sortorder = $form->{sort} . " $sortdir";
|
| 687 | 687 |
} |
| 688 | 688 |
|
| bin/mozilla/ar.pl | ||
|---|---|---|
| 1064 | 1064 |
%column_defs_cvars, |
| 1065 | 1065 |
); |
| 1066 | 1066 |
|
| 1067 |
foreach my $name (qw(id transdate duedate invnumber ordnumber cusordnumber name datepaid employee shippingpoint shipvia transaction_description direct_debit)) {
|
|
| 1067 |
foreach my $name (qw(id transdate duedate invnumber ordnumber cusordnumber name datepaid employee shippingpoint shipvia transaction_description direct_debit department)) {
|
|
| 1068 | 1068 |
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
|
| 1069 | 1069 |
$column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
|
| 1070 | 1070 |
} |
Auch abrufbar als: Unified diff
Bericht VK-Rg/Debitorenbuchungen: nach Abteilungen sortieren können