sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Print date in a more friendly format.

Browse source 
Includes issue of "ends on" date being correct for mere mortals as opposed
to being right for Ledger only.
This commit is contained in:
Bradley M. Kuhn 2012-11-25 14:33:53 -05:00
parent df6428f549
commit 10d3f55933
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
contrib/non-profit-audit-reports/fund-report.plx
View file

@ -24,6 +24,7 @@ use strict;
use warnings; use warnings;
use Math::BigFloat; use Math::BigFloat;
use Date::Manip;
my $LEDGER_CMD = "/usr/local/bin/ledger"; my $LEDGER_CMD = "/usr/local/bin/ledger";
@ -42,6 +43,13 @@ if (@ARGV < 2) {
} }
my($startDate, $endDate, @mainLedgerOptions) = @ARGV; my($startDate, $endDate, @mainLedgerOptions) = @ARGV;
my $err;
my $formattedEndDate = UnixDate(DateCalc(ParseDate($endDate), ParseDateDelta("- 1 day"), \$err),
"%B %e, %Y");
die "Date calculation error on $endDate" if ($err);
my $formattedStartDate = UnixDate(ParseDate($startDate), "%B %e, %Y");
die "Date calculation error on $startDate" if ($err);
# First, get fund list from ending balance # First, get fund list from ending balance
my(@ledgerOptions) = (@mainLedgerOptions, my(@ledgerOptions) = (@mainLedgerOptions,
'-V', '-X', '$', '-F', "%-.70A %22.108t\n", '-s', '-V', '-X', '$', '-F', "%-.70A %22.108t\n", '-s',
@ -117,14 +125,14 @@ my($totStart, $totEnd) = ($ZERO, $ZERO);
foreach my $fund (sort keys %funds) { foreach my $fund (sort keys %funds) {
my $sanityTotal = $funds{$fund}{starting}; my $sanityTotal = $funds{$fund}{starting};
print "Fund: $fund\n", sprintf("%-35s\$%26.2f\n\n", "Balance as of $startDate:", print "Fund: $fund\n", sprintf("%-35s\$%26.2f\n\n", "Balance as of $formattedStartDate:",
$funds{$fund}{starting}); $funds{$fund}{starting});
foreach my $type ('Income', 'Expenses', @possibleTypes) { foreach my $type ('Income', 'Expenses', @possibleTypes) {
my $formattedType = $type; $formattedType =~ s/^Accrued://; my $formattedType = $type; $formattedType =~ s/^Accrued://;
next if $type ne 'Income' and $type ne 'Expenses' and $funds{$fund}{$type} == $ZERO; next if $type ne 'Income' and $type ne 'Expenses' and $funds{$fund}{$type} == $ZERO;
print sprintf("%19s during period: \$%26.2f\n", $formattedType, $funds{$fund}{$type}); print sprintf("%19s during period: \$%26.2f\n", $formattedType, $funds{$fund}{$type});
} }
print sprintf("\n%-35s\$%26.2f\n", "Balance as of $endDate:", print sprintf("\n%-35s\$%26.2f\n", "Balance as of $formattedEndDate:",
$funds{$fund}{ending}), "\n\n"; $funds{$fund}{ending}), "\n\n";
# Santity check: # Santity check:
if ($funds{$fund}{ending} != if ($funds{$fund}{ending} !=
@ -136,8 +144,8 @@ foreach my $fund (sort keys %funds) {
$totStart += $funds{$fund}{starting}; $totStart += $funds{$fund}{starting};
$totEnd += $funds{$fund}{ending}; $totEnd += $funds{$fund}{ending};
} }
print "\n\n\nTotal Restricted Funds as of $startDate: ", sprintf("\$%15.2f\n", $totStart); print "\n\n\nTotal Restricted Funds as of $formattedStartDate: ", sprintf("\$%15.2f\n", $totStart);
print "\nTotal Restricted Funds as of $endDate: ", sprintf("\$%15.2f\n", $totEnd); print "\nTotal Restricted Funds as of $formattedStartDate: ", sprintf("\$%15.2f\n", $totEnd);
############################################################################### ###############################################################################
# #
# Local variables: # Local variables: