sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Correct sorting of output in trial balance report.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-01-06 19:28:46 -05:00
parent 2142a36c1c
commit 6d98bc58ae
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/non-profit-audit-reports/summary-reports.plx
View file

@ -430,10 +430,13 @@ my $curOn = 'Assets';
foreach my $account (sort preferredAccountSorting keys %fullAccountList) { foreach my $account (sort preferredAccountSorting keys %fullAccountList) {
# Blank lines right # Blank lines right
if ($account !~ /^$curOn/) { if ($account !~ /^$curOn/) {
print TRIAL "\n"; print TRIAL "pagebreak\n";
$curOn = $account; $curOn = $account;
if ($curOn =~ /(Accrued:[^:]+):.*$/) {
$curOn = $1;
} else {
$curOn =~ s/^([^:]+):.*$/$1/; $curOn =~ s/^([^:]+):.*$/$1/;
print "CurOn now: $curOn\n"; }
} }
if ($account =~ /^Assets|Liabilities|Accrued|Unearned Income/) { if ($account =~ /^Assets|Liabilities|Accrued|Unearned Income/) {
foreach my $id (qw/totalBeginFY totalEndFY amountInYear/) { foreach my $id (qw/totalBeginFY totalEndFY amountInYear/) {