fix for 52228: Bug list title should be name of query if running named query

patch by dave@intrec.com (Dave Miller)

diff --git a/CGI.pl b/CGI.pl
index a1ced72ea39a003519837967cfae4a223e0ae1c6..71ed43e1c6d91529cf7f8a70293c7f8bd3f9676a 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -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")) {

diff --git a/buglist.cgi b/buglist.cgi
index 360deefff5a80c18da90ba33c1796a608e386e0d..a7a3e72fe16fb8414681e7363f5f6896569659a0 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -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 "