X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FAM.pm;h=5a68426678ecd098b637d84c3e32e866a6cb4977;hb=badd147971eca7279692d0047f57a60264337792;hp=3e7834795d5bdb0008c5c83280c029eb5fa859b9;hpb=e0e6a9bb9c297b31a5846c7a01aff7d246773981;p=kivitendo-erp.git 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; }