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

Display RT ticket for find supporter.

Browse source
This commit is contained in:
Bradley M. Kuhn 2021-02-10 14:25:40 -08:00
parent 60260bd59c
commit 9a54b77881
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scripts/find-supporter.plx
View file

@ -34,9 +34,13 @@ my @requestTypes = $sp->getRequestType();
binmode STDOUT, ":utf8";
foreach my $id (@supporterIds) {
$found = 1;
my $rtTicket = $sp->_getDonorField('rt_ticket', $id);
$rtTicket = "" if not defined $rtTicket;
$rtTicket = "[sfconservancy.org #$rtTicket]" if $rtTicket ne "";
my $preferredEmail = $sp->getPreferredEmailAddress($id);
my $preferredPostal = $sp->getPreferredPostalAddress($id);
print "Found: $id, ", $sp->getLedgerEntityId($id), "\n";
print "Found: BEGIN: $id, ", $sp->getLedgerEntityId($id), "\n";
print " RT: $rtTicket" if $rtTicket ne "";
print " Public Ack: ";
if (not defined $sp->getPublicAck($id)) {
print "unknown\n";
@ -91,6 +95,9 @@ foreach my $id (@supporterIds) {
}
}
}
print "END: $id, ", $sp->getLedgerEntityId($id);
print " RT: $rtTicket" if $rtTicket ne "";
print "\n";
}
print "No entries found\n" unless $found;
###############################################################################