Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

find-supporter: Remove excessive whitespace.

Browse source 
Inspired by a patch from Martin, but unfortunately it doesn't apply cleanly
anymore.
This commit is contained in:
Brett Smith 2017-01-03 12:11:30 -05:00
parent 3283cff2e1
commit 14fbb42dd6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/find-supporter.plx
View file

@ -35,15 +35,15 @@ foreach my $id (@supporterIds) {
$found = 1; $found = 1;
my $preferredEmail = $sp->getPreferredEmailAddress($id); my $preferredEmail = $sp->getPreferredEmailAddress($id);
my $preferredPostal = $sp->getPreferredPostalAddress($id); my $preferredPostal = $sp->getPreferredPostalAddress($id);
print "Found: $id, ", $sp->getLedgerEntityId($id), "\n"; print "Found: $id, ", $sp->getLedgerEntityId($id), "\n";
print " Public Ack: "; print " Public Ack: ";
if (not defined $sp->getPublicAck($id)) { if (not defined $sp->getPublicAck($id)) {
print " unknown\n"; print "unknown\n";
} elsif ($sp->getPublicAck($id)) { } elsif ($sp->getPublicAck($id)) {
print " yes\n"; print "yes\n";
print " Display name for public ack: \"", $sp->getDisplayName($id), "\"\n"; print " Display name for public ack: \"", $sp->getDisplayName($id), "\"\n";
} else { } else {
print " no\n"; print "no\n";
} }
my(%addr) = $sp->getEmailAddresses($id); my(%addr) = $sp->getEmailAddresses($id);
print " Email Addresses: "; print " Email Addresses: ";