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

Print date postal address was encountered.

Browse source
This commit is contained in:
Bradley M. Kuhn 2021-02-17 10:43:40 -08:00
parent b16b4661ab
commit a1ade5c8fa
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scripts/find-supporter.plx
View file

@ -68,6 +68,7 @@ foreach my $id (@supporterIds) {
print "\n Postal Addresses:\n"; print "\n Postal Addresses:\n";
foreach my $address (keys %postalAddresses) { foreach my $address (keys %postalAddresses) {
print " PREFERRED FOLLOWS:\n" if (defined $preferredPostal) and $address eq $preferredPostal; print " PREFERRED FOLLOWS:\n" if (defined $preferredPostal) and $address eq $preferredPostal;
print " Encountered $postalAddresses{$address}{date_encountered}\n";
foreach my $addrLine (split("\n", $address)) { foreach my $addrLine (split("\n", $address)) {
print " $addrLine\n"; print " $addrLine\n";
} }