From bc6ceee13bf7a4b81efd6295ce56a4ccffb1d4db Mon Sep 17 00:00:00 2001
From: Philip Reetz <p.reetz@linet-services.de>
Date: Tue, 12 Dec 2006 10:32:28 +0000
Subject: [PATCH] Speichern von Konten ein wenig debugged

---
 SL/AM.pm          | 8 ++++----
 bin/mozilla/am.pl | 1 -
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/SL/AM.pm b/SL/AM.pm
index 3e7834795..5a6842667 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -80,12 +80,12 @@ sub get_account {
 
   # get taxkeys and description
   $query = qq§SELECT id, taxkey,id||'--'||taxkey AS tax, taxdescription
-              FROM tax§;
+              FROM tax ORDER BY taxkey§;
   $sth = $dbh->prepare($query);
   $sth->execute || $form->dberror($query);
-
-  $ref = $sth->fetchrow_hashref(NAME_lc);
-
+  
+  $form->{TAXKEY} = [];
+  
   while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
     push @{ $form->{TAXKEY} }, $ref;
   }
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index e58c81e31..c04651d39 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -94,7 +94,6 @@ sub account_header {
   $form->{description} =~ s/\"/&quot;/g;
 
   if (@{ $form->{TAXKEY} }) {
-    $form->{selecttaxkey} = "<option value=0>Keine Steuer 0%\n";
     foreach $item (@{ $form->{TAXKEY} }) {
       if ($item->{tax} == $form->{tax}) {
         $form->{selecttaxkey} .=
-- 
2.20.1