Speichern von Konten ein wenig debugged

diff --git a/SL/AM.pm b/SL/AM.pm
index 3e78347..5a68426 100644 (file)
--- 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 e58c81e..c04651d 100644 (file)
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -94,7 +94,6 @@ sub account_header {
   $form->{description} =~ s/\"/"/g;
 
   if (@{ $form->{TAXKEY} }) {
-    $form->{selecttaxkey} = "<option value=0>Keine Steuer 0%\n";
     foreach $item (@{ $form->{TAXKEY} }) {
       if ($item->{tax} == $form->{tax}) {
         $form->{selecttaxkey} .=