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

Also count lapsed/active against monthly/annual.

Browse source 
Add some details about the amount who are monthly/annual to the counts.
This commit is contained in:
Bradley M. Kuhn 2016-11-05 10:34:41 -07:00
parent 57275ec6bf
commit 8bf9a01550
1 changed files with 19 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,8 +44,10 @@ foreach my $cat (@lapseCategories) {
$expireReport{$cat}{list} = []; $expireReport{$cat}{list} = [];
} }
my $lapsedCount = 0; my $lapsedCount = 0;
my(%activeCounter, %lapsedCounter);
my %monthExpirations; my %monthExpirations;
foreach my $supporterId (@supporterIds) { foreach my $supporterId (@supporterIds) {
my $expiresOn = $sp->supporterExpirationDate($supporterId); my $expiresOn = $sp->supporterExpirationDate($supporterId);
my $expiresOnMonth = UnixDate(ParseDate($expiresOn), '%Y-%m'); my $expiresOnMonth = UnixDate(ParseDate($expiresOn), '%Y-%m');
@ -54,8 +56,14 @@ foreach my $supporterId (@supporterIds) {
my $isLapsed = ( (not defined $expiresOn) or $expiresOn le $TODAY); my $isLapsed = ( (not defined $expiresOn) or $expiresOn le $TODAY);
my $lapsesInOneWeek = ( (defined $expiresOn) and $expiresOn le $ONE_WEEK); my $lapsesInOneWeek = ( (defined $expiresOn) and $expiresOn le $ONE_WEEK);
my $lapsesInOneMonth = ( (defined $expiresOn) and $expiresOn le $ONE_MONTH); my $lapsesInOneMonth = ( (defined $expiresOn) and $expiresOn le $ONE_MONTH);
my $type = $sp->getType($supporterId);
$expiresOn = "NO-FULL-SIGNUP" if not defined $expiresOn; $expiresOn = "NO-FULL-SIGNUP" if not defined $expiresOn;
$lapsedCount++ if $isLapsed; if ($isLapsed) {
$lapsedCount++;
$lapsedCounter{$type}++ if defined $type;
} else {
$activeCounter{$type}++ if defined $type;
}
my %emails; my %emails;
my $email = $sp->getPreferredEmailAddress($supporterId); my $email = $sp->getPreferredEmailAddress($supporterId);
if (defined $email) { if (defined $email) {
@ -119,7 +127,16 @@ my $subject = "Supporter lapsed report for $TODAY";
my $per = ( ($lapsedCount / scalar(@supporterIds)) * 100.00); my $per = ( ($lapsedCount / scalar(@supporterIds)) * 100.00);
my $headerInfo = "$subject\n" . ("=" x length($subject)) . my $headerInfo = "$subject\n" . ("=" x length($subject)) .
"\n\nWe have " . scalar(@supporterIds) . " supporters and $lapsedCount are lapsed. That's " . "\n\nWe have " . scalar(@supporterIds) . " supporters and $lapsedCount are lapsed. That's " .
sprintf("%.2f", $per) . "%.\nActive supporter count: " . (scalar(@supporterIds) - $lapsedCount) . "\n\n"; sprintf("%.2f", $per) . "%.\nActive supporter count: " . (scalar(@supporterIds) - $lapsedCount) . "\n" .
sprintf(" Of the active supporters, %.2f%% are monthly and %.2f%% are annual",
( ($activeCounter{Monthly} / (scalar(@supporterIds) - $lapsedCount)) * 100.00),
( ($activeCounter{Annual} / (scalar(@supporterIds) - $lapsedCount)) * 100.00)) . ".\n\n";
foreach my $type (keys %lapsedCounter) {
$headerInfo .= sprintf("%7s: Lapsed Count: %3d Active Count: %3d\n",
$type, $lapsedCounter{$type}, $activeCounter{$type});
}
$headerInfo .= "\n";
my $emailText .= $headerInfo; my $emailText .= $headerInfo;
my $allStaffEmailText = $headerInfo; my $allStaffEmailText = $headerInfo;
$emailText .= "\n RENEWAL DUE COUNT BY MONTH\n"; $emailText .= "\n RENEWAL DUE COUNT BY MONTH\n";