X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/e9ae46a0d9e6d265a4aaaf89ff18e2f1fc3b1b3e..bc6ceee13bf7a4b81efd6295ce56a4ccffb1d4db:/SL/AM.pm 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; }