From 01242775e0d599f02c26e68286a1360ebb04a714 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Sun, 8 Apr 2001 00:09:27 +0000
Subject: Fix for bug 71808: Can't set email preferences for voters (which
 caused voters to get OldEmailTech notifications. Patch by jake@acutex.net r=
 justdave

---
 userprefs.cgi | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'userprefs.cgi')

diff --git a/userprefs.cgi b/userprefs.cgi
index 0d890499d..d0b97f33c 100755
--- a/userprefs.cgi
+++ b/userprefs.cgi
@@ -45,7 +45,8 @@ my @emailGroups = (
         'Owner',        'the Bug Owner',
         'Reporter',     'the Reporter',
         'QAcontact',    'the QA contact',
-        'CClist',       'on the CC list'
+        'CClist',       'on the CC list',
+        'Voter',        'a Voter'
         );
 
 my @emailFlags = (
@@ -95,8 +96,16 @@ my $defaultEmailFlagString =
         'emailCClistResolved~'       . 'on~' .
         'emailCClistKeywords~'       . 'on~' .
         'emailCClistCC~'             . 'on~' .
-        'emailCClistOther~'          . 'on' ;
+        'emailCClistOther~'          . 'on~' .
 
+        'emailVoterRemoveme~'        . 'on~' .
+        'emailVoterComments~'        . 'on~' .
+        'emailVoterAttachemnts~'     . 'on~' .
+        'emailVoterStatus~'          . 'on~' .
+        'emailVoterResolved~'        . 'on~' .
+        'emailVoterKeywords~'        . 'on~' .
+        'emailVoterCC~'              . 'on~' .
+        'emailVoterOther~'           . 'on' ;
 
 sub EmitEntry {
     my ($description, $entry) = (@_);
@@ -409,6 +418,11 @@ sub printEmailOption ($$\%) {
         $value = 'CHECKED';
     }
 
+    # **** Kludge ... also mark on if the value in $$refCurrentFlags in undef
+    if (!defined($$refCurrentFlags{"email$optionName"})) {
+        $value = 'CHECKED';
+    }
+
     print qq{
         <tr><td width=320></td>
         <td><input type="checkbox" name="email$optionName" VALUE="on" $value>
-- 
cgit v1.2.3-24-g4f1b