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

More verbose output for requests and postal addresses.

Browse source
This commit is contained in:
Bradley M. Kuhn 2022-06-21 10:10:26 -07:00
parent fe4aa69763
commit 022a41c131
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/find-supporter.plx
View file

@ -68,7 +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"; print " Encountered $postalAddresses{$address}{id} on $postalAddresses{$address}{date_encountered} via $postalAddresses{$address}{name}\n";
foreach my $addrLine (split("\n", $address)) { foreach my $addrLine (split("\n", $address)) {
print " $addrLine\n"; print " $addrLine\n";
} }
@ -77,7 +77,7 @@ foreach my $id (@supporterIds) {
foreach my $requestType (@requestTypes) { foreach my $requestType (@requestTypes) {
my $req = $sp->getRequest({ donorId => $id, requestType => $requestType}); my $req = $sp->getRequest({ donorId => $id, requestType => $requestType});
if (defined $req) { if (defined $req) {
print " Request $req->{requestType}"; print " Request $req->{requestId} of $req->{requestType}";
print "($req->{requestConfiguration})" if defined $req->{requestConfiguration}; print "($req->{requestConfiguration})" if defined $req->{requestConfiguration};
print " made on $req->{requestDate}"; print " made on $req->{requestDate}";
if (not defined $req->{fulfillDate}) { if (not defined $req->{fulfillDate}) {