From fd6b55e7bee385293e13026d699a0aef36a29343 Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 11 Mar 2016 12:11:58 -0800
Subject: [PATCH] Print public ack status on find-supporter script.

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

diff --git a/scripts/find-supporter.plx b/scripts/find-supporter.plx
index 95774d0..33b8449 100755
--- a/scripts/find-supporter.plx
+++ b/scripts/find-supporter.plx
@@ -36,6 +36,14 @@ foreach my $id (@supporterIds) {
   my $preferredEmail = $sp->getPreferredEmailAddress($id);
   my $preferredPostal = undef; # $sp->getPreferredPostalAddress($id);
   print "Found:  $id, ", $sp->getLedgerEntityId($id), "\n";
+  print "     Public Ack: ";
+  if (not defined $sp->getPublicAck($id)) {
+    print " unknown\n";
+  } elsif ($sp->getPublicAck($id)) {
+    print " yes\n";
+  } else {
+    print " no\n";
+  }
   my(%addr) = $sp->getEmailAddresses($id);
   print "     Email Addresses: ";
   my $cnt = 0;