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

seems useful and appropriate.)
This commit is contained in:
terry%mozilla.org 2000-03-15 21:06:02 +00:00
Родитель 78b3223e19
Коммит 53182cf291
1 изменённых файлов: 14 добавлений и 0 удалений

Просмотреть файл

@ -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";