Speichern von Konten ein wenig debugged

diff --git a/SL/AM.pm b/SL/AM.pm
index 3e7834795d5bdb0008c5c83280c029eb5fa859b9..5a68426678ecd098b637d84c3e32e866a6cb4977 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
 
   # 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);
   $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;
   }
   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 e58c81e31306664fc1e6b646c3f54d9fb85bc2aa..c04651d390f62b1543e013e99564453a79b16f56 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->{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} .=
     foreach $item (@{ $form->{TAXKEY} }) {
       if ($item->{tax} == $form->{tax}) {
         $form->{selecttaxkey} .=