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