summaryrefslogtreecommitdiff
path: root/contrib
diff options
context:
space:
mode:
authorBradley M. Kuhn <bkuhn@ebb.org>2012-11-23 08:45:52 -0500
committerBradley M. Kuhn <bkuhn@ebb.org>2012-11-26 13:54:45 -0500
commitccd5d06c04576bbd3911d4ce0c9ccb8c4ec4cfc5 (patch)
treeeaa49f831a3e0163807bd18a545f708296a37bf5 /contrib
parent46b13e8e550fb05a3e863e913cf6cd359ef42272 (diff)
downloadfork-ledger-ccd5d06c04576bbd3911d4ce0c9ccb8c4ec4cfc5.tar.gz
fork-ledger-ccd5d06c04576bbd3911d4ce0c9ccb8c4ec4cfc5.tar.bz2
fork-ledger-ccd5d06c04576bbd3911d4ce0c9ccb8c4ec4cfc5.zip
Include any other liabilities that aren't credit cards.
Diffstat (limited to 'contrib')
-rwxr-xr-xcontrib/non-profit-audit-reports/summary-reports.plx6
1 files changed, 5 insertions, 1 deletions
diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx
index 04923de8..14923a42 100755
--- a/contrib/non-profit-audit-reports/summary-reports.plx
+++ b/contrib/non-profit-audit-reports/summary-reports.plx
@@ -63,6 +63,8 @@ my %reportFields =
'Accounts Payable' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Accounts Payable/' ]},
'Accrued Expenses' => {args => [ '-e', $endDate, 'bal', '/^Accrued.*Expenses/' ]},
'Liabilities, Credit Cards' => {args => [ '-e', $endDate, 'bal', '/^Liabilities:Credit Card/' ]},
+ 'Liabilities, Other' => {args => [ '-e', $endDate, 'bal', '/^Liabilities/',
+ 'and', 'not', '/^Liabilities:Credit Card/']},
'Unearned Income, Conference Registration' => {args => [ '-e', $endDate, 'bal',
'/^Unearned Income.*Conf.*Reg/' ]},
'Unearned Income, Other' => {args => [ '-e', $endDate, 'bal', '/^Unearned Income/', 'and', 'not',
@@ -126,7 +128,8 @@ foreach my $item ('Cash', 'Accounts Receivable', 'Loans Receivable') {
print ASSETS "\n", sprintf($formatStrTotal, "TOTAL ASSETS", Commify($tot)), "\n\nLIABILITIES\n\n";
my $totLiabilities = $ZERO;
-foreach my $item ('Accounts Payable', 'Liabilities, Credit Cards', 'Accrued Expenses',
+foreach my $item ('Accounts Payable', 'Accrued Expenses',
+ 'Liabilities, Credit Cards', 'Liabilities, Other',
'Unearned Income, Conference Registration', 'Unearned Income, Other') {
next if $reportFields{$item}{total} == $ZERO;
print ASSETS sprintf($formatStr, "$item:", Commify($reportFields{$item}{total}));
@@ -157,6 +160,7 @@ die "Cash+accounts receivable total does not equal net assets and liabilities to
$reportFields{'Unearned Income, Conference Registration'}{total} +
$reportFields{'Unearned Income, Other'}{total} +
$reportFields{'Liabilities, Credit Cards'}{total} +
+ $reportFields{'Liabilities, Other'}{total} +
$reportFields{'Total Net Assets'}{total}));
die "Total net assets doesn't equal sum of restricted and unrestricted ones!"