From ca842229d2d58c85517a8fc8e5a2bc9414752dae Mon Sep 17 00:00:00 2001 From: "gerv%gerv.net" <> Date: Thu, 3 Oct 2002 14:04:02 +0000 Subject: Bug 155389 - More elements & templatization of navigation_links. Patch by gerv; r=bbaetz. --- CGI.pl | 43 ------------------------------------------- 1 file changed, 43 deletions(-) (limited to 'CGI.pl') diff --git a/CGI.pl b/CGI.pl index 1e534b384..6e121b273 100644 --- a/CGI.pl +++ b/CGI.pl @@ -308,49 +308,6 @@ sub ValidateComment { } } -# Adds elements for bug lists. These can be inserted into the header by -# using the "header_html" parameter to PutHeader, which inserts an arbitrary -# string into the header. This function is currently used only in -# template/en/default/bug/edit.html.tmpl. -sub navigation_links($) { - my ($buglist) = @_; - - my $retval = ""; - - # We need to be able to pass in a buglist because when you sort on a column - # the bugs in the cookie you are given will still be in the old order. - # If a buglist isn't passed, we just use the cookie. - $buglist ||= $::COOKIE{"BUGLIST"}; - - if (defined $buglist && $buglist ne "") { - my @bugs = split(/:/, $buglist); - - if (defined $::FORM{'id'}) { - # We are on an individual bug - my $cur = lsearch(\@bugs, $::FORM{"id"}); - - if ($cur > 0) { - $retval .= "\n"; - $retval .= "\n"; - } - if ($cur < $#bugs) { - $retval .= "\n"; - $retval .= "\n"; - } - - $retval .= "\n"; - $retval .= "\n"; - } else { - # We are on a bug list - $retval .= "\n"; - $retval .= "\n"; - $retval .= "\n"; - } - } - - return $retval; -} - $::CheckOptionValues = 1; # This sub is still used in reports.cgi. -- cgit v1.2.3-24-g4f1b