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