X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/35fcd2473ad489c63e9bbe313d3f5c9b5d010b34..0eeecc3c6833a618a9f1b9c94e0331335f8a7987:/SL/CT.pm

diff --git a/SL/CT.pm b/SL/CT.pm
index 4578224bf..8a3ff853c 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -695,6 +695,9 @@ sub search {
 
   my $where = "1 = 1";
   $form->{sort} = "name" unless ($form->{sort});
+  if ($form->{sort} eq "address") {
+    $form->{sort} = "country,city,street";
+  }
 
   if ($form->{"$form->{db}number"}) {
     my $companynumber = $form->like(lc $form->{"$form->{db}number"});