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 ++++---
buglist.cgi | 5 +++--
2 files changed, 7 insertions(+), 5 deletions(-)
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 . " | My bugs";
}
- SendSQL("SELECT name,query FROM namedqueries " .
+ SendSQL("SELECT name FROM namedqueries " .
"WHERE userid = $userid AND linkinfooter");
while (MoreSQLData()) {
- my ($name, $query) = (FetchSQLData());
- $html .= qq{ | $name};
+ my ($name) = (FetchSQLData());
+ $html .= " | $name";
}
$html .= " | Edit prefs";
if (UserInGroup("tweakparams")) {
diff --git a/buglist.cgi b/buglist.cgi
index 360deefff..a7a3e72fe 100755
--- 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 "
--
cgit v1.2.1