From 2d01951ef9f29cc325084e40b9e1b7f18e375815 Mon Sep 17 00:00:00 2001 From: "dave%intrec.com" <> Date: Sun, 11 Mar 2001 06:06:57 +0000 Subject: Attempted fix for bug 71574: footer anomoly cleanup --- CGI.pl | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'CGI.pl') diff --git a/CGI.pl b/CGI.pl index 091055dd7..29d8f68ea 100644 --- a/CGI.pl +++ b/CGI.pl @@ -1059,11 +1059,11 @@ sub GetCommandMenu { my $loggedin = quietly_check_login(); my $html = ""; $html .= <<"--endquote--"; -
+\n"; + } if ($loggedin) { #a little mandatory SQL, used later on SendSQL("SELECT mybugslink, userid, blessgroupset FROM profiles " . @@ -1087,7 +1086,7 @@ Actions: my ($mybugslink, $userid, $blessgroupset) = (FetchSQLData()); #Begin settings - $html .= ""; $html .= ""; - $html .= "\n"; } else { + $html .= ""; -- cgit v1.2.3-24-g4f1b
Actions: - -New | Query + +New | Query | --endquote-- if (-e "query2.cgi") { @@ -1071,15 +1071,14 @@ Actions: } $html .= - qq{
bug \# }; + qq{ bug \# }; $html .= " | Reports"; if ($loggedin) { if ($::anyvotesallowed) { $html .= " | My votes"; } - } - $html .= "
Edit prefs"; + $html .= " Edit prefs"; if (UserInGroup("tweakparams")) { $html .= ", parameters"; $html .= ", sanity check"; @@ -1116,22 +1115,26 @@ Actions: } $html .= "
Preset Queries: \n"; + $html .= "\n"; if ($mybugslink) { my $mybugsurl = PerformSubsts($mybugstemplate, \%substs); $html = $html . "My bugs"; } SendSQL("SELECT name FROM namedqueries " . "WHERE userid = $userid AND linkinfooter"); + my $anynamedqueries = 0; while (MoreSQLData()) { my ($name) = (FetchSQLData()); - $html .= " | $name"; } $html .= "
 \n"; $html .= - "
New account\n"; + " New account\n"; $html .= " | Log in"; $html .= "