Revision a2aca2e1
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/CT.pm | ||
|---|---|---|
| 682 | 682 |
my %allowed_sort_columns = |
| 683 | 683 |
map({ $_, 1 } qw(id customernumber vendornumber name address contact phone fax email
|
| 684 | 684 |
taxnumber sic_code business invnumber ordnumber quonumber)); |
| 685 |
$sortorder = |
|
| 686 |
$form->{sort} && $allowed_sort_columns{$form->{sort}} ?
|
|
| 687 |
$form->{sort} : "name";
|
|
| 685 |
$sortorder = $form->{sort} && $allowed_sort_columns{$form->{sort}} ? $form->{sort} : "name";
|
|
| 688 | 686 |
$form->{sort} = $sortorder;
|
| 687 |
my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
|
|
| 689 | 688 |
|
| 690 | 689 |
if ($sortorder eq "address") {
|
| 691 |
$sortorder = "lower(country), lower(city), lower(street)";
|
|
| 690 |
$sortorder = "lower(country) ${sortdir}, lower(city) ${sortdir}, lower(street) ${sortdir}";
|
|
| 692 | 691 |
} elsif ($sortorder ne 'id') {
|
| 693 |
$sortorder = "lower($sortorder)"; |
|
| 692 |
$sortorder = "lower($sortorder) ${sortdir}";
|
|
| 693 |
} else {
|
|
| 694 |
$sortorder .= " ${sortdir}";
|
|
| 694 | 695 |
} |
| 695 | 696 |
|
| 696 | 697 |
if ($form->{"${cv}number"}) {
|
Auch abrufbar als: Unified diff
Sortierung in Berichten über Kunden und Lieferanten auch auf- und absteigbar sortierbar gemacht.