зеркало из https://github.com/mozilla/pjs.git
Add a "send mail to bug owners" link (under circumstances where it
seems useful and appropriate.)
This commit is contained in:
Родитель
78b3223e19
Коммит
53182cf291
|
@ -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{ \n};
|
||||
print qq{<NOBR><A HREF="mailto:$list">Send mail to bug owners</A></NOBR>\n};
|
||||
}
|
||||
print qq{ \n};
|
||||
print qq{<NOBR><A HREF="query.cgi?$::buffer">Edit this query</A></NOBR>\n};
|
||||
print "</FORM>\n";
|
||||
|
|
Загрузка…
Ссылка в новой задаче