mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-12-13 10:25:01 +00:00
Fix for bug 106315: Link on bug list for emailing QA contacts.
Patch by Dave Miller <justdave@syndicomm.com>. r=myk@mozilla.org, no second review needed.
This commit is contained in:
parent
3490ffedf3
commit
131e04c22d
@ -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{ \n};
|
||||
print qq{<NOBR><A HREF="mailto:$list">Send mail to bug owners</A></NOBR>\n};
|
||||
print qq{<A HREF="mailto:$list">Send mail to bug 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{ \n};
|
||||
print qq{<A HREF="mailto:$list">Send mail to bug QA contacts</A>\n};
|
||||
}
|
||||
print qq{ \n};
|
||||
print qq{<NOBR><A HREF="query.cgi?$::buffer">Edit this query</A></NOBR>\n};
|
||||
|
Loading…
Reference in New Issue
Block a user