diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-25 12:18:58 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-26 13:54:47 -0500 |
| commit | 3e634b6d45ef1991350141df22ed038bae8de07e (patch) | |
| tree | 2896e4e40f3b59684f2454a0b8425fc6a39ad1e0 /contrib/non-profit-audit-reports/general-ledger-report.plx | |
| parent | 586c4eb3b3b93faf048df2e31c339c7459e3df9e (diff) | |
| download | fork-ledger-3e634b6d45ef1991350141df22ed038bae8de07e.tar.gz fork-ledger-3e634b6d45ef1991350141df22ed038bae8de07e.tar.bz2 fork-ledger-3e634b6d45ef1991350141df22ed038bae8de07e.zip | |
Ignore <Adjustments> accounts.
Diffstat (limited to 'contrib/non-profit-audit-reports/general-ledger-report.plx')
| -rwxr-xr-x | contrib/non-profit-audit-reports/general-ledger-report.plx | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index dc48a509..192be350 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -57,6 +57,7 @@ open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts) my @accounts; while (my $line = <CHART_DATA>) { chomp $line; + next if $line =~ /^\s*\<\s*Adjustment\s*\>\s*$/; $line =~ s/^\s*//; $line =~ s/\s*$//; push(@accounts, $line); |