Skip lapsed supporters.

This commit is contained in:
Bradley M. Kuhn 2016-01-22 17:12:05 -08:00
parent 922e8f279e
commit 376075e549

View file

@ -50,6 +50,9 @@ foreach my $supporterId (@supporterIds) {
} }
next; next;
} }
print STDERR "$supporterId skipped since he is not lapsed\n" if ( (not $isLapsed) and $VERBOSE > 1);
next if not $isLapsed;
my %emails; my %emails;
my $email = $sp->getPreferredEmailAddress($supporterId); my $email = $sp->getPreferredEmailAddress($supporterId);
if (defined $email) { if (defined $email) {