From b1abebb32bcafc4ddc6a38db5dab6e097973a6ca Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 11 Mar 2016 11:10:39 -0800
Subject: [PATCH] Better formatting of address output.

---
 scripts/find-supporter.plx | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scripts/find-supporter.plx b/scripts/find-supporter.plx
index d219586..029f38e 100755
--- a/scripts/find-supporter.plx
+++ b/scripts/find-supporter.plx
@@ -36,7 +36,12 @@ foreach my $id (@supporterIds) {
   my(%addr) = $sp->getEmailAddresses($id);
   print "     Email Addresses: ", join(", ", keys %addr), "\n";
   my(%postalAddresses) = $sp->getPostalAddresses($id);
-  print "     Postal Addresses: ", join("\n\n", keys %postalAddresses), "\n";
+  print "     Postal Addresses:\n";
+  foreach my $address (keys %postalAddresses) {
+    foreach my $addrLine (split("\n", $address)) {
+      print "          $addrLine\n";
+    }
+  }
   $found = 1;
   foreach my $requestType (@requestTypes) {
     my $req = $sp->getRequest({ donorId => $id, requestType => $requestType});