diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-25 12:18:26 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-26 13:54:46 -0500 |
| commit | 586c4eb3b3b93faf048df2e31c339c7459e3df9e (patch) | |
| tree | ae10859db215dd002d599fcc82322504b6298236 /contrib | |
| parent | c7a798be8e7f2ac4c10c70b732cdc20f768eb3c2 (diff) | |
| download | fork-ledger-586c4eb3b3b93faf048df2e31c339c7459e3df9e.tar.gz fork-ledger-586c4eb3b3b93faf048df2e31c339c7459e3df9e.tar.bz2 fork-ledger-586c4eb3b3b93faf048df2e31c339c7459e3df9e.zip | |
Use -V to normalize currencies in general-ledger report.
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/non-profit-audit-reports/general-ledger-report.plx | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index 07f0b9da..dc48a509 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -48,7 +48,7 @@ open(MANIFEST, ">", "MANIFEST") or die "Unable to open MANIFEST for writing: $!" my($beginDate, $endDate, @otherLedgerOpts) = @ARGV; -my(@chartOfAccountsOpts) = ('-F', "%150A\n", '-w', '-s', +my(@chartOfAccountsOpts) = ('-V', '-F', "%150A\n", '-w', '-s', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg'); open(CHART_DATA, "-|", $LEDGER_CMD, @chartOfAccountsOpts) @@ -97,7 +97,7 @@ print MANIFEST "general-ledger.csv\n"; foreach my $acct (@sortedAccounts) { print GL_TEXT_OUT "\n\nACCOUNT: $acct\nFROM: $beginDate TO $formattedEndDate\n\n"; - my @acctLedgerOpts = ('-F', + my @acctLedgerOpts = ('-V', '-F', "%(date) %-.10C %-.80P %-.80N %18t %18T\n", '-w', '--sort', 'd', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); open(GL_TEXT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) @@ -118,7 +118,7 @@ foreach my $acct (@sortedAccounts) { $formatString .= "\n"; print GL_CSV_OUT "\n"; - @acctLedgerOpts = ('-F', $formatString, '-w', '--sort', 'd', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); + @acctLedgerOpts = ('-V', '-F', $formatString, '-w', '--sort', 'd', '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); open(GL_CSV_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!"; |