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
This commit is contained in:
dave%intrec.com
2000-07-22 21:09:33 +00:00
parent 9fc2c146d9
commit dbbb3f5b30

View File

@@ -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,