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

Handle other donor info.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-01-03 13:17:00 -08:00
parent 6d7bae7e02
commit da75edccf2
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
scripts/send-renewal-notices.plx
View file

@ -31,8 +31,25 @@ my(@supporterIds) = $sp->findDonor({});
foreach my $supporterId (@supporterIds) { foreach my $supporterId (@supporterIds) {
my $expiresOn = $sp->supporterExpirationDate($supporterId); my $expiresOn = $sp->supporterExpirationDate($supporterId);
next unless ( (not defined $expiresOn) or $expiresOn lt $TODAY); my $isLapsed = ( (not defined $expiresOn) or $expiresOn lt $TODAY);
my $request = $sp->getRequest({ donorId => $supporterId, requestType => $REQUEST_NAME});
if (defined $request) {
if (defined $request->{fulfillDate}) {
print STDERR "$supporterId lapsed on $expiresOn but recorded as renewed on $request->{fulfillDate}\n"
if ($isLapsed and $VERBOSE);
} elsif (not $isLapsed) {
$sp->fulfillRequest({donorId => $supporterId, requestType => $REQUEST_NAME,
who => $supporterId, how => "apparent renewal not noticed during import"});
print STDERR "$supporterId now expires on $expiresOn, recording rewnewal of type $REQUEST_NAME\n"
if $VERBOSE;
} else {
print STDERR "$supporterId received this renewal notice already on $request->{requestDate}\n"
if $VERBOSE;
}
next;
}
my %emails; my %emails;
my $email = $sp->getPreferredEmailAddress($supporterId); my $email = $sp->getPreferredEmailAddress($supporterId);
if (defined $email) { if (defined $email) {