diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-01-06 19:28:46 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-01-06 19:28:46 -0500 |
| commit | 6d98bc58ae555d5d4487e7ee90c6ce8b2a49cbe6 (patch) | |
| tree | 7f3682ca9c5f911ef850f5a237319b76fe416cf5 /contrib | |
| parent | 2142a36c1c81bae4ea5bdb6fde65141e8dca5227 (diff) | |
| download | fork-ledger-6d98bc58ae555d5d4487e7ee90c6ce8b2a49cbe6.tar.gz fork-ledger-6d98bc58ae555d5d4487e7ee90c6ce8b2a49cbe6.tar.bz2 fork-ledger-6d98bc58ae555d5d4487e7ee90c6ce8b2a49cbe6.zip | |
Correct sorting of output in trial balance report.
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/non-profit-audit-reports/summary-reports.plx | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx index bbe83c88..e9e1a3b8 100755 --- a/contrib/non-profit-audit-reports/summary-reports.plx +++ b/contrib/non-profit-audit-reports/summary-reports.plx @@ -430,10 +430,13 @@ my $curOn = 'Assets'; foreach my $account (sort preferredAccountSorting keys %fullAccountList) { # Blank lines right if ($account !~ /^$curOn/) { - print TRIAL "\n"; + print TRIAL "pagebreak\n"; $curOn = $account; - $curOn =~ s/^([^:]+):.*$/$1/; - print "CurOn now: $curOn\n"; + if ($curOn =~ /(Accrued:[^:]+):.*$/) { + $curOn = $1; + } else { + $curOn =~ s/^([^:]+):.*$/$1/; + } } if ($account =~ /^Assets|Liabilities|Accrued|Unearned Income/) { foreach my $id (qw/totalBeginFY totalEndFY amountInYear/) { |