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

Ignore <Adjustments> accounts.

Browse source
This commit is contained in:
Bradley M. Kuhn 2012-11-25 12:18:58 -05:00
parent 586c4eb3b3
commit 3e634b6d45
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
contrib/non-profit-audit-reports/general-ledger-report.plx
View file

@ -57,6 +57,7 @@ open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts)
my @accounts; my @accounts;
while (my $line = <CHART_DATA>) { while (my $line = <CHART_DATA>) {
chomp $line; chomp $line;
next if $line =~ /^\s*\<\s*Adjustment\s*\>\s*$/;
$line =~ s/^\s*//; $line =~ s/\s*$//; $line =~ s/^\s*//; $line =~ s/\s*$//;
push(@accounts, $line); push(@accounts, $line);