Kunden-/Lieferantensuche: Sortierung nach Spalten PLZ und Stadt erlauben

[mfinanz.git] / SL / CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index 9089aabcc6b7b9bc456c7e3ea88bcc4efef05dde..3c17ca53561a96bc36987127ff174d7850d0ad7c 100644 (file)
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -696,8 +696,10 @@ sub search {
   my @values;
 
   my %allowed_sort_columns =
-    map({ $_, 1 } qw(id customernumber vendornumber name contact phone fax email
-                     taxnumber business invnumber ordnumber quonumber));
+    map { $_, 1 } qw(
+      id customernumber vendornumber name contact phone fax email street
+      taxnumber business invnumber ordnumber quonumber zipcode city
+    );
   my $sortorder    = $form->{sort} && $allowed_sort_columns{$form->{sort}} ? $form->{sort} : "name";
   $form->{sort} = $sortorder;
   my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
@@ -1156,7 +1158,7 @@ sub parse_excel_file {
   $form->{excel} = 1;
   my $extension            = 'xls';
 
-  my $form->{IN}         = "$form->{formname}.${extension}";
+  $form->{IN}         = "$form->{formname}.${extension}";
 
   delete $form->{OUT};