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

Add search for id & output of postal/email address

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-03-11 09:55:11 -08:00
parent 279c3e33f9
commit 7398b2f3f7
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scripts/find-supporter.plx
View file

@ -24,9 +24,19 @@ my $dbh = DBI->connect("dbi:SQLite:dbname=$SUPPORTERS_SQLITE_DB_FILE", "", "",
my $sp = new Supporters($dbh, ['none']); my $sp = new Supporters($dbh, ['none']);
my $found = 0; my $found = 0;
my(@supporterIds) = $sp->findDonor({$CRITERION => $SEARCH_PARAMETER }); my(@supporterIds);
if ($CRITERION ne 'id') {
@supporterIds = $sp->findDonor({$CRITERION => $SEARCH_PARAMETER });
} else {
push(@supporterIds, $SEARCH_PARAMETER);
}
foreach my $id (@supporterIds) { foreach my $id (@supporterIds) {
print "Found: $id, ", $sp->getLedgerEntityId($id), "\n"; print "Found: $id, ", $sp->getLedgerEntityId($id), "\n";
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";
$found = 1; $found = 1;
} }
print "No entries found\n" unless $found; print "No entries found\n" unless $found;