diff options
author | cyeh%bluemartini.com <> | 2000-09-19 04:29:44 +0000 |
---|---|---|
committer | cyeh%bluemartini.com <> | 2000-09-19 04:29:44 +0000 |
commit | 826bffd4d1f022dbaf2b4e3fd094796246ec50ca (patch) | |
tree | 6c4d5cd3284ecf00084609971af2f73244f104fe | |
parent | 3faeb367cba6337d86f31eba2783ced6700734a6 (diff) | |
download | bugs-826bffd4d1f022dbaf2b4e3fd094796246ec50ca.tar bugs-826bffd4d1f022dbaf2b4e3fd094796246ec50ca.tar.gz bugs-826bffd4d1f022dbaf2b4e3fd094796246ec50ca.tar.bz2 bugs-826bffd4d1f022dbaf2b4e3fd094796246ec50ca.tar.xz bugs-826bffd4d1f022dbaf2b4e3fd094796246ec50ca.zip |
fix for 52228: Bug list title should be name of query if running named query
patch by dave@intrec.com (Dave Miller)
-rw-r--r-- | CGI.pl | 7 | ||||
-rwxr-xr-x | buglist.cgi | 5 |
2 files changed, 7 insertions, 5 deletions
@@ -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 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 " |