From dbbb3f5b300567a3d6787647233c17702bd129b5 Mon Sep 17 00:00:00 2001 From: "dave%intrec.com" Date: Sat, 22 Jul 2000 21:09:33 +0000 Subject: [PATCH] Fix for bug 30826 (new email tech not being honored for QA contacts). git-svn-id: svn://10.0.0.236/trunk@74655 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/webtools/bugzilla/processmail | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/mozilla/webtools/bugzilla/processmail b/mozilla/webtools/bugzilla/processmail index b813986809e..f2f0f26fc25 100755 --- a/mozilla/webtools/bugzilla/processmail +++ b/mozilla/webtools/bugzilla/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,