X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/26a5973f82e070ba072f22ab9cf71fad0c5b92c3..28f6dabe8291ed96238eaa7f48556c6915ddad1d:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index ace85e706..a36ffd5df 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2145,8 +2145,10 @@ sub _get_taxzones {
   my ($self, $dbh, $key) = @_;
 
   $key = "all_taxzones" unless ($key);
+  my $tzfilter = "";
+  $tzfilter = "WHERE obsolete is FALSE" if $key eq 'ALL_ACTIVE_TAXZONES'; 
 
-  my $query = qq|SELECT * FROM tax_zones ORDER BY id|;
+  my $query = qq|SELECT * FROM tax_zones $tzfilter ORDER BY sortkey|;
 
   $self->{$key} = selectall_hashref_query($self, $dbh, $query);