mirror of
https://github.com/mozilla/gecko-dev.git
synced 2025-04-02 12:32:55 +00:00
fix for 52228: Bug list title should be name of query if running named query
patch by dave@intrec.com (Dave Miller)
This commit is contained in:
parent
34204afd36
commit
cb28da37a5
@ -1075,11 +1075,12 @@ sub GetCommandMenu {
|
||||
my $mybugsurl = PerformSubsts($mybugstemplate, \%substs);
|
||||
$html = $html . " | <A HREF='$mybugsurl'><NOBR>My bugs</NOBR></A>";
|
||||
}
|
||||
SendSQL("SELECT name,query FROM namedqueries " .
|
||||
SendSQL("SELECT name FROM namedqueries " .
|
||||
"WHERE userid = $userid AND linkinfooter");
|
||||
while (MoreSQLData()) {
|
||||
my ($name, $query) = (FetchSQLData());
|
||||
$html .= qq{ | <A HREF="buglist.cgi?$query"><NOBR>$name</NOBR></A>};
|
||||
my ($name) = (FetchSQLData());
|
||||
$html .= " | <A HREF=\"buglist.cgi?&cmdtype=runnamed&namedcmd=" .
|
||||
url_quote($name) . "\"><NOBR>$name</NOBR></A>";
|
||||
}
|
||||
$html .= " | <NOBR>Edit <a href='userprefs.cgi'>prefs</a></NOBR>";
|
||||
if (UserInGroup("tweakparams")) {
|
||||
|
@ -662,11 +662,12 @@ sub LookupNamedQuery {
|
||||
|
||||
|
||||
|
||||
|
||||
$::querytitle = "Bug List";
|
||||
|
||||
CMD: for ($::FORM{'cmdtype'}) {
|
||||
/^runnamed$/ && do {
|
||||
$::buffer = LookupNamedQuery($::FORM{"namedcmd"});
|
||||
$::querytitle = "Bug List: $::FORM{'namedcmd'}";
|
||||
ProcessFormFields($::buffer);
|
||||
last CMD;
|
||||
};
|
||||
@ -1155,7 +1156,7 @@ if (length($buglist) < 4000) {
|
||||
print "Set-Cookie: BUGLIST=\n\n";
|
||||
$toolong = 1;
|
||||
}
|
||||
PutHeader("Bug List");
|
||||
PutHeader($::querytitle);
|
||||
|
||||
|
||||
print "
|
||||
|
Loading…
x
Reference in New Issue
Block a user