Add a "send mail to bug owners" link (under circumstances where it

seems useful and appropriate.)

1 files changed, 14 insertions, 0 deletions

diff --git a/buglist.cgi b/buglist.cgi
index a776bbc0b..b333d9b6e 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -1006,6 +1006,7 @@ my @bugarray;
 my %prodhash;
 my %statushash;
 my $buggroupset = "";
+my %ownerhash;
 
 my $pricol = -1;
 my $sevcol = -1;
@@ -1073,6 +1074,9 @@ while (@row = FetchSQLData()) {
                 if (!defined $value) {
                     next;
                 }
+                if ($c eq "owner") {
+                    $ownerhash{$value} = 1;
+                }
                 if ($::needquote{$c}) {
                     $value = html_quote($value);
                 } else {
@@ -1382,6 +1386,16 @@ if ($count > 0) {
         print "<NOBR><A HREF=\"buglist.cgi?$fields$orderpart&tweak=1\">";
         print "Change several bugs at once</A></NOBR>\n";
     }
+    my @owners = sort(keys(%ownerhash));
+    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{&nbsp;&nbsp;\n};
     print qq{<NOBR><A HREF="query.cgi?$::buffer">Edit this query</A></NOBR>\n};
     print "</FORM>\n";