From: Philip Reetz Date: Tue, 12 Dec 2006 10:32:28 +0000 (+0000) Subject: Speichern von Konten ein wenig debugged X-Git-Tag: release-2.4.0^2~75 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=bc6ceee13bf7a4b81efd6295ce56a4ccffb1d4db;p=kivitendo-erp.git Speichern von Konten ein wenig debugged --- 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/\"/"/g; if (@{ $form->{TAXKEY} }) { - $form->{selecttaxkey} = "