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

Add renewal percentage per group.

Browse source
This commit is contained in:
Bradley M. Kuhn 2017-01-12 10:33:50 -08:00
parent 1a6fdd8f09
commit 1900575269
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -204,8 +204,8 @@ my $headerInfo = "$subject\n" . ("=" x length($subject)) .
( ($activeCounter{Annual} / ($totalSupporters - $lapsedCount)) * 100.00)) . ".\n\n"; ( ($activeCounter{Annual} / ($totalSupporters - $lapsedCount)) * 100.00)) . ".\n\n";
foreach my $type (keys %lapsedCounter) { foreach my $type (keys %lapsedCounter) {
$headerInfo .= sprintf("%7s: Lapsed Count: %3d Active Count: %3d\n", $headerInfo .= sprintf("%7s: Lapsed Count: %3d Active Count: %3d Percent of %7ss Lapsed: %2.2f%\n",
$type, $lapsedCounter{$type}, $activeCounter{$type}); $type, $lapsedCounter{$type}, $activeCounter{$type}, ($lapsedCounter{$type} / $activeCounter{$type}) * 100.00);
} }
$headerInfo .= "\n"; $headerInfo .= "\n";
my $emailText .= $headerInfo; my $emailText .= $headerInfo;