Ignore <Adjustments> accounts.

This commit is contained in:
Bradley M. Kuhn 2012-11-25 12:18:58 -05:00
parent 586c4eb3b3
commit 3e634b6d45

View file

@ -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);