From c2bc7b6b9ed28d2069ca80175a56ff9dcc849951 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Tue, 19 Feb 2013 09:11:08 -0500 Subject: Equity and Adjustment accounts should not appear in these reports at all. There were a few spots where they were still sneaking in. --- contrib/non-profit-audit-reports/general-ledger-report.plx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'contrib/non-profit-audit-reports/general-ledger-report.plx') diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index 1e6d9caf..dce855b4 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -72,6 +72,7 @@ my @accounts; while (my $line = ) { chomp $line; next if $line =~ /^\s*\<\s*Adjustment\s*\>\s*$/; + next if $line =~ /^\s*Equity:/; # Stupid auto-account made by ledger. $line =~ s/^\s*//; $line =~ s/\s*$//; push(@accounts, $line); @@ -119,7 +120,6 @@ sub preferredAccountSorting ($$) { } } - my @sortedAccounts; foreach my $acct ( sort preferredAccountSorting @accounts) { print CHART_OUTPUT "\"$acct\"\n"; -- cgit v1.2.3