Fixed sorting to make sure Assets are first, and that Liabilities will

come right after that.
This commit is contained in:
Bradley M. Kuhn 2011-12-02 07:23:35 -05:00
parent bf675718db
commit 9095dad4f0

View file

@ -69,7 +69,9 @@ foreach my $acct (
# Proper sorting for a chart of accounts
sort {
if ($a =~ /^Assets/ and $b !~ /^Assets/) {
return 1;
return -1;
elsif ($a =~ /^Liabilities/ and $b !~ /^Liabilitie/) {
return -1;
} else {
return $a cmp $b;
}