diff options
author | gerv%gerv.net <> | 2002-05-08 13:40:33 +0200 |
---|---|---|
committer | gerv%gerv.net <> | 2002-05-08 13:40:33 +0200 |
commit | e9d127328584062a35806bdeecb3faba6527a5dd (patch) | |
tree | 0612f56623100dcc819b879bb11ef28983715679 /CGI.pl | |
parent | 339ddd36d3f4c601d57a5e5ce201613e355a49c7 (diff) | |
download | bugzilla-e9d127328584062a35806bdeecb3faba6527a5dd.tar.gz bugzilla-e9d127328584062a35806bdeecb3faba6527a5dd.tar.xz |
Bug 140437 - clean up parameters. Patch by gerv; 2xr=justdave.
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 103 |
1 files changed, 0 insertions, 103 deletions
@@ -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> - -</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 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 check</a>\n"; - } - - $html .= qq{ -| <a href="relogin.cgi">Log 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 Queries: </TD>"; - $html .= "<TD colspan=3>\n"; - if ($mybugslink) { - my $mybugsurl = PerformSubsts($mybugstemplate, \%substs); - $html = $html . "<A HREF=\"$mybugsurl\">My 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/ / /g; - if ($anynamedqueries || $mybugslink) { $html .= " | " } - $anynamedqueries = 1; - $html .= "<A HREF=\"buglist.cgi?cmdtype=runnamed&namedcmd=" . - url_quote($name) . "\">$disp_name</A>\n"; - } - $html .= "</TD></TR>\n"; - } else { - $html .= "</TD><TD> </TD><TD valign=\"middle\" align=\"right\">\n"; - $html .= - " <a href=\"createaccount.cgi\">New account</a>\n"; - $html .= - " | <a href=\"query.cgi?GoAheadAndLogIn=1\">Log in</a>"; - $html .= "</TD></TR>"; - } - $html .= "</TABLE>"; - $html .= "</FORM>\n"; - return $html; -} ############# Live code below here (that is, not subroutine defs) ############# |