summaryrefslogtreecommitdiffstats
path: root/buglist.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'buglist.cgi')
-rwxr-xr-xbuglist.cgi17
1 files changed, 15 insertions, 2 deletions
diff --git a/buglist.cgi b/buglist.cgi
index 120234471..0aba4ecc0 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -1213,6 +1213,7 @@ my @bugarray;
my %prodhash;
my %statushash;
my %ownerhash;
+my %qahash;
my $pricol = -1;
my $sevcol = -1;
@@ -1283,6 +1284,9 @@ while (@row = FetchSQLData()) {
if ($c eq "owner") {
$ownerhash{$value} = 1;
}
+ if ($c eq "qa_contact") {
+ $qahash{$value} = 1;
+ }
if ( ($c eq "owner" || $c eq "qa_contact" ) &&
length $value > $maxemailsize ) {
my $trunc = substr $value, 0, $maxemailsize;
@@ -1682,14 +1686,23 @@ if ($count > 0) {
print "Change several bugs at once</A></NOBR>\n";
}
my @owners = sort(keys(%ownerhash));
+ my $suffix = Param('emailsuffix');
if (@owners > 1 && UserInGroup("editbugs")) {
- my $suffix = Param('emailsuffix');
if ($suffix ne "") {
map(s/$/$suffix/, @owners);
}
my $list = join(',', @owners);
print qq{&nbsp;&nbsp;\n};
- print qq{<NOBR><A HREF="mailto:$list">Send mail to bug owners</A></NOBR>\n};
+ print qq{<A HREF="mailto:$list">Send&nbsp;mail&nbsp;to&nbsp;bug&nbsp;owners</A>\n};
+ }
+ my @qacontacts = sort(keys(%qahash));
+ if (@qacontacts > 1 && UserInGroup("editbugs") && Param("useqacontact")) {
+ if ($suffix ne "") {
+ map(s/$/$suffix/, @qacontacts);
+ }
+ my $list = join(',', @qacontacts);
+ print qq{&nbsp;&nbsp;\n};
+ print qq{<A HREF="mailto:$list">Send&nbsp;mail&nbsp;to&nbsp;bug&nbsp;QA&nbsp;contacts</A>\n};
}
print qq{&nbsp;&nbsp;\n};
print qq{<NOBR><A HREF="query.cgi?$::buffer">Edit this query</A></NOBR>\n};