diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-23 09:01:19 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2012-11-26 13:54:45 -0500 |
| commit | 239df56cfba6ad715f4fc63f9fde6dd968e973cd (patch) | |
| tree | f72bdf7615dde1bb2526e6add073a731cc4ae810 /contrib/non-profit-audit-reports/summary-reports.plx | |
| parent | e0df353ca37e4601921341a692300754186c8e6e (diff) | |
| download | fork-ledger-239df56cfba6ad715f4fc63f9fde6dd968e973cd.tar.gz fork-ledger-239df56cfba6ad715f4fc63f9fde6dd968e973cd.tar.bz2 fork-ledger-239df56cfba6ad715f4fc63f9fde6dd968e973cd.zip | |
Output should include a heading and an ending date.
Diffstat (limited to 'contrib/non-profit-audit-reports/summary-reports.plx')
| -rwxr-xr-x | contrib/non-profit-audit-reports/summary-reports.plx | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/contrib/non-profit-audit-reports/summary-reports.plx b/contrib/non-profit-audit-reports/summary-reports.plx index 27a8d210..c41fee50 100755 --- a/contrib/non-profit-audit-reports/summary-reports.plx +++ b/contrib/non-profit-audit-reports/summary-reports.plx @@ -24,6 +24,7 @@ use strict; use warnings; use Math::BigFloat; +use Date::Manip; my $VERBOSE = 0; my $DEBUG = 0; @@ -113,10 +114,16 @@ foreach my $item (keys %reportFields) { print STDERR "$item: $reportFields{$item}{total}\n" if $VERBOSE; } +my $err; open(BALANCE_SHEET, ">", "balance-sheet.txt") or die "unable to open balance-sheet.txt for writing: $!"; -print BALANCE_SHEET "ASSETS\n\n"; +print BALANCE_SHEET " BALANCE SHEET\n", + " Ending ", + UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err), + "%B %e, %Y\n"), + "\n\nASSETS\n\n"; +die "Date calculation error" if ($err); my $formatStr = " %-42s \$%13s\n"; my $formatStrTotal = "%-45s \$%13s\n"; |