From 826bffd4d1f022dbaf2b4e3fd094796246ec50ca Mon Sep 17 00:00:00 2001
From: "cyeh%bluemartini.com" <>
Date: Tue, 19 Sep 2000 04:29:44 +0000
Subject: fix for 52228: Bug list title should be name of query if running
 named query patch by dave@intrec.com (Dave Miller)

---
 CGI.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index a1ced72ea..71ed43e1c 100644
--- 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")) {
-- 
cgit v1.2.3-24-g4f1b