From 2a9bdc98fbea38a2a70e98c4e940a0a9fa9b00e2 Mon Sep 17 00:00:00 2001
From: "dave%intrec.com" <>
Date: Sun, 23 Jul 2000 04:09:33 +0000
Subject: Fix for bug 30826 (new email tech not being honored for QA contacts).

---
 processmail | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'processmail')

diff --git a/processmail b/processmail
index b81398680..f2f0f26fc 100755
--- a/processmail
+++ b/processmail
@@ -191,7 +191,7 @@ sub GetBugText {
     my $status_whiteboard = "";
     if (Param('useqacontact') && $::bug{'qa_contact'} > 0) {
         $::bug{'qa_contact'} = DBID_to_name($::bug{'qa_contact'});
-        $qa_contact = "QAContact: $::bug{'qa_contact'}\n";
+        $qa_contact = "$::bug{'qa_contact'}\n";
     } else {
         $::bug{'qa_contact'} = "";
     }
@@ -463,10 +463,12 @@ sub NewProcessOneBug {
     my $newcomments = GetLongDescriptionAsText($id, $start, $end);
 
     my $count = 0;
-    for my $person ($values{'assigned_to'}, $values{'reporter'},
-                    split(/,/, $values{'cc'}),
-                    @voterlist,
-                    @forcecc) {
+    my @personlist = ($values{'assigned_to'}, $values{'reporter'},
+                      split(/,/, $values{'cc'}),
+                      @voterlist,
+                      @forcecc);
+    if ($values{'qa_contact'}) { push @personlist, $values{'qa_contact'} }
+    for my $person (@personlist) {
         $count++;
 
         NewProcessOnePerson($person, $count, \@headerlist, \%values,
-- 
cgit v1.2.1