X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/11a04bd50f0ec94871c75834b8b9497df46f5357..a5448e9828a527e85aade8acdd7346e469fdc306:/SL/AM.pm diff --git a/SL/AM.pm b/SL/AM.pm index abf3c92c0..b7c60033b 100644 --- a/SL/AM.pm +++ b/SL/AM.pm @@ -106,7 +106,7 @@ sub get_account { # get the taxkeys of the account $form->{ACCOUNT_TAXKEYS} = []; - foreach my $taxkey ( @{ $chart_obj->taxkeys } ) { + foreach my $taxkey ( sort { $b->startdate <=> $a->startdate } @{ $chart_obj->taxkeys } ) { push @{ $form->{ACCOUNT_TAXKEYS} }, { id => $taxkey->id, chart_id => $taxkey->chart_id, tax_id => $taxkey->tax_id,