Some minor formatting fixes for the trial balance report.

This commit is contained in:
Bradley M. Kuhn 2013-01-03 13:37:18 -05:00
parent 750321c0b1
commit 2fad8fe238

View file

@ -387,7 +387,7 @@ open(TRIAL, ">", "trial-balance.csv") or die "unable to open accrued.txt for wri
'reg');
print TRIAL "\"TRIAL BALANCE REPORT\",",
"\"ENDING:\",\"$formattedEndDate\"\n\n\"ACCOUNT NAME\", \"AMOUNT\"\n\n";
"\"ENDING:\",\"$formattedEndDate\"\n\n\"ACCOUNT NAME\",\"AMOUNT\"\n\n";
open(FILE, "-|", @fullCommand)
or die "unable to run command ledger command: @fullCommand: $!";
@ -413,7 +413,7 @@ close FILE;
die "unable to run trial balance ledger command: $!" unless ($? == 0);
foreach my $account (sort preferredAccountSorting keys %trialBalances) {
print TRIAL "\"$account\",\"$trialBalances{$account}\"\n";
print TRIAL "\"$account\",\"\$$trialBalances{$account}\"\n";
}
close TRIAL;