X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/828bd68326ee5bd732d3d01e9f166dacb7424657..2676fca9c7148e05e26af44f41ee933a0c207940:/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"});