Bug 140437 - clean up parameters. Patch by gerv; 2xr=justdave.

1 files changed, 0 insertions, 103 deletions

diff --git a/CGI.pl b/CGI.pl
index f5ce6fb35..01afc62dd 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -1100,109 +1100,6 @@ sub GetBugActivity {
     return(\@operations, $incomplete_data);
 }
 
-sub GetCommandMenu {
-    my $loggedin = quietly_check_login();
-    if (!defined $::anyvotesallowed) {
-        GetVersionTable();
-    }
-    my $html = qq {
-<FORM METHOD="GET" ACTION="show_bug.cgi">
-<TABLE width="100%"><TR><TD>
-Actions:
-</TD><TD VALIGN="middle" NOWRAP>
-<a href="enter_bug.cgi">New</a> | 
-<a href="query.cgi">Query</a> |
-};
-
-    if (-e "query2.cgi") {
-        $html .= "[<a href=\"query2.cgi\">beta</a>]";
-    }
-    
-    $html .= qq{ 
-<INPUT TYPE="SUBMIT" VALUE="Find"> bug \# 
-<INPUT NAME="id" SIZE="6">
-| <a href="reports.cgi">Reports</a> 
-};
-    if ($loggedin) {
-        if ($::anyvotesallowed) {
-            $html .= " | <A HREF=\"votes.cgi?action=show_user\">My votes</A>\n";
-        }
-    }
-    if ($loggedin) {
-        #a little mandatory SQL, used later on
-        SendSQL("SELECT mybugslink, userid, blessgroupset FROM profiles " .
-                "WHERE login_name = " . SqlQuote($::COOKIE{'Bugzilla_login'}));
-        my ($mybugslink, $userid, $blessgroupset) = (FetchSQLData());
-        
-        #Begin settings
-        $html .= qq{
-</TD><TD>
-    &nbsp;
-</TD><TD VALIGN="middle">
-Edit <a href="userprefs.cgi">prefs</a>
-};
-        if (UserInGroup("tweakparams")) {
-            $html .= ", <a href=\"editparams.cgi\">parameters</a>\n";
-        }
-        if (UserInGroup("editusers") || $blessgroupset) {
-            $html .= ", <a href=\"editusers.cgi\">users</a>\n";
-        }
-        if (UserInGroup("editcomponents")) {
-            $html .= ", <a href=\"editproducts.cgi\">products</a>\n";
-            $html .= ", <a href=\"editattachstatuses.cgi\">
-              attachment&nbsp;statuses</a>\n";
-        }
-        if (UserInGroup("creategroups")) {
-            $html .= ", <a href=\"editgroups.cgi\">groups</a>\n";
-        }
-        if (UserInGroup("editkeywords")) {
-            $html .= ", <a href=\"editkeywords.cgi\">keywords</a>\n";
-        }
-        if (UserInGroup("tweakparams")) {
-            $html .= "| <a href=\"sanitycheck.cgi\">Sanity&nbsp;check</a>\n";
-        }
-
-        $html .= qq{ 
-| <a href="relogin.cgi">Log&nbsp;out</a> $::COOKIE{'Bugzilla_login'}
-</TD></TR> 
-};
-        
-        #begin preset queries
-        my $mybugstemplate = Param("mybugstemplate");
-        my %substs;
-        $substs{'userid'} = url_quote($::COOKIE{"Bugzilla_login"});
-        $html .= "<TR>";
-        $html .= "<TD>Preset&nbsp;Queries: </TD>";
-        $html .= "<TD colspan=3>\n";
-        if ($mybugslink) {
-            my $mybugsurl = PerformSubsts($mybugstemplate, \%substs);
-            $html = $html . "<A HREF=\"$mybugsurl\">My&nbsp;bugs</A>\n";
-        }
-        SendSQL("SELECT name FROM namedqueries " .
-                "WHERE userid = $userid AND linkinfooter");
-        my $anynamedqueries = 0;
-        while (MoreSQLData()) {
-            my ($name) = (FetchSQLData());
-            my $disp_name = $name;
-            $disp_name =~ s/ /&nbsp;/g;
-            if ($anynamedqueries || $mybugslink) { $html .= " | " }
-            $anynamedqueries = 1;
-            $html .= "<A HREF=\"buglist.cgi?cmdtype=runnamed&amp;namedcmd=" .
-                     url_quote($name) . "\">$disp_name</A>\n";
-        }
-        $html .= "</TD></TR>\n";
-    } else {
-        $html .= "</TD><TD>&nbsp;</TD><TD valign=\"middle\" align=\"right\">\n";
-        $html .=
-            " <a href=\"createaccount.cgi\">New&nbsp;account</a>\n";
-        $html .=
-            " | <a href=\"query.cgi?GoAheadAndLogIn=1\">Log&nbsp;in</a>";
-        $html .= "</TD></TR>";
-    }
-    $html .= "</TABLE>";                
-    $html .= "</FORM>\n";
-    return $html;
-}
 
 ############# Live code below here (that is, not subroutine defs) #############