From: dave%intrec.com <>
Date: Sun, 23 Jul 2000 04:09:33 +0000 (+0000)
Subject: Fix for bug 30826 (new email tech not being honored for QA contacts).
X-Git-Tag: bugzilla-2.12~225
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2a9bdc98fbea38a2a70e98c4e940a0a9fa9b00e2;p=thirdparty%2Fbugzilla.git

Fix for bug 30826 (new email tech not being honored for QA contacts).
---

diff --git a/processmail b/processmail
index b813986809..f2f0f26fc2 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,