diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-18 11:50:46 -0800 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-18 11:50:46 -0800 |
| commit | 34ed226c5789cd2c7bf70f857b92a8e4a295ac78 (patch) | |
| tree | b3c8334f63a39eb844783ac1ffefa931f823a947 /contrib/non-profit-audit-reports/general-ledger-report.plx | |
| parent | 7fc291aaf1fee11fe0fbe2f7e2fb64d924f45a85 (diff) | |
| parent | cbdffb9a41b445dec9a9a99addf41112bac4f128 (diff) | |
| download | fork-ledger-34ed226c5789cd2c7bf70f857b92a8e4a295ac78.tar.gz fork-ledger-34ed226c5789cd2c7bf70f857b92a8e4a295ac78.tar.bz2 fork-ledger-34ed226c5789cd2c7bf70f857b92a8e4a295ac78.zip | |
Merge pull request #157 from bkuhn/more-non-profit-audit-reports-updates
More non profit audit reports updates
Diffstat (limited to 'contrib/non-profit-audit-reports/general-ledger-report.plx')
| -rwxr-xr-x | contrib/non-profit-audit-reports/general-ledger-report.plx | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/non-profit-audit-reports/general-ledger-report.plx b/contrib/non-profit-audit-reports/general-ledger-report.plx index 1fd0e7ce..1e6d9caf 100755 --- a/contrib/non-profit-audit-reports/general-ledger-report.plx +++ b/contrib/non-profit-audit-reports/general-ledger-report.plx @@ -166,7 +166,7 @@ foreach my $acct (@sortedAccounts) { print GL_TEXT_OUT "\n\nACCOUNT: $acct\nFROM: $beginDate TO $formattedEndDate\n\n"; my @acctLedgerOpts = ('-V', '-F', "%(date) %-.10C %-.80P %-.80N %18t %18T\n", '-w', '--sort', 'd', - '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', $acct); + '-b', $beginDate, '-e', $endDate, @otherLedgerOpts, 'reg', '/^' . $acct . '$/'); open(GL_TEXT_DATA, "-|", $LEDGER_CMD, @acctLedgerOpts) or die "Unable to run $LEDGER_CMD @acctLedgerOpts: $!"; @@ -190,7 +190,7 @@ foreach my $acct (@sortedAccounts) { print GL_CSV_OUT "\"$formattedBeginDate\"", ',"","BALANCE","","$', "$balanceData{totalBegin}{$acct}\"\n"; } - @acctLedgerOpts = ('-V', '-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: $!"; |