From 051e241768cf54550b1279e052f9da0d3cd34328 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Mon, 19 Dec 2011 11:49:26 -0500
Subject: [PATCH] Initial part of reporting.

---
 external-account-totals-reconcile.plx | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/external-account-totals-reconcile.plx b/external-account-totals-reconcile.plx
index 0b35862..9fc1acf 100755
--- a/external-account-totals-reconcile.plx
+++ b/external-account-totals-reconcile.plx
@@ -86,14 +86,15 @@ while (my $line = <ACCT_DATA>) {
 }
 close(ACCT_DATA); die "error reading ledger output for chart of accounts: $!" unless $? == 0;
 
-print "EXTERNAL: \n";
 foreach my $acct (sort keys %externalBalances) {
-  print "$acct: $externalBalances{$acct}\n";
+  if (not defined $internalBalances{$acct}) {
+    print "$acct EXISTS in external data, but does not appear in Ledger.\n";
+  }
+  delete $internalBalances{$acct};
 }
 
-print "INTERNAL: \n";
 foreach my $acct (sort keys %internalBalances) {
-  print "$acct: $internalBalances{$acct}\n";
+  print "$acct EXISTS in Ledger, but does not appear in external data.\n";
 }
 ###############################################################################
 #