bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
come right after that.
This commit is contained in:
Bradley M. Kuhn 2011-12-02 07:23:35 -05:00
parent bf675718db
commit 9095dad4f0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
general-ledger-report.plx
View file

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