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

Better formatting of address output.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-03-11 11:10:39 -08:00
parent 6615abe535
commit b1abebb32b
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scripts/find-supporter.plx
View file

@ -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});