send-renewal-notices: Fix lapse rate math.

The lapse rate by Supporter type was being miscalculated.
This commit is contained in:
Brett Smith 2017-01-26 13:59:29 -05:00
parent 3751fe870f
commit 8f102e54c4

View file

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