From 19005752698cda0248e5cd67220f58a7936e7c8a Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Thu, 12 Jan 2017 10:33:50 -0800
Subject: [PATCH] Add renewal percentage per group.

---
 scripts/send-renewal-notices.plx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/send-renewal-notices.plx b/scripts/send-renewal-notices.plx
index 69f9346..1c06b34 100644
--- a/scripts/send-renewal-notices.plx
+++ b/scripts/send-renewal-notices.plx
@@ -204,8 +204,8 @@ my $headerInfo = "$subject\n" . ("=" x length($subject)) .
           ( ($activeCounter{Annual} / ($totalSupporters - $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 .= 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);
 }
 $headerInfo .= "\n";
 my $emailText .= $headerInfo;