From 376075e54946491f1d4af255352eeb98d4d51e7d Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 22 Jan 2016 17:12:05 -0800
Subject: [PATCH] Skip lapsed supporters.
---
scripts/send-renewal-notices.plx | 3 +++
1 file changed, 3 insertions(+)
diff --git a/scripts/send-renewal-notices.plx b/scripts/send-renewal-notices.plx
index cfdb35e..f94605d 100644
--- a/scripts/send-renewal-notices.plx
+++ b/scripts/send-renewal-notices.plx
@@ -50,6 +50,9 @@ foreach my $supporterId (@supporterIds) {
}
next;
}
+ print STDERR "$supporterId skipped since he is not lapsed\n" if ( (not $isLapsed) and $VERBOSE > 1);
+ next if not $isLapsed;
+
my %emails;
my $email = $sp->getPreferredEmailAddress($supporterId);
if (defined $email) {