diff options
author | terry%netscape.com <> | 1999-04-28 02:17:49 +0200 |
---|---|---|
committer | terry%netscape.com <> | 1999-04-28 02:17:49 +0200 |
commit | a6681fdc8c95b49edfa3fa3da8bf3e4b2ada9833 (patch) | |
tree | 1516ad3a56647808e41b780114ab07032368870f /CGI.pl | |
parent | 52f6d572410ff925d87f519e9d0528c7d4812730 (diff) | |
download | bugzilla-a6681fdc8c95b49edfa3fa3da8bf3e4b2ada9833.tar.gz bugzilla-a6681fdc8c95b49edfa3fa3da8bf3e4b2ada9833.tar.xz |
Patch by David Gardiner <david.gardiner@unisa.edu.au> -- added new headerhtml
param to allow people to customize the html put in the <HEAD> portion
of generated documents. Also, a few other minor patches.
Diffstat (limited to 'CGI.pl')
-rw-r--r-- | CGI.pl | 31 |
1 files changed, 19 insertions, 12 deletions
@@ -220,17 +220,20 @@ sub make_options { my $last = ""; my $popup = ""; my $found = 0; - foreach my $item (@$src) { - if ($item eq "-blank-" || $item ne $last) { - if ($item eq "-blank-") { - $item = ""; - } - $last = $item; - if ($isregexp ? $item =~ $default : $default eq $item) { - $popup .= "<OPTION SELECTED VALUE=\"$item\">$item"; - $found = 1; - } else { - $popup .= "<OPTION VALUE=\"$item\">$item"; + + if ($src) { + foreach my $item (@$src) { + if ($item eq "-blank-" || $item ne $last) { + if ($item eq "-blank-") { + $item = ""; + } + $last = $item; + if ($isregexp ? $item =~ $default : $default eq $item) { + $popup .= "<OPTION SELECTED VALUE=\"$item\">$item"; + $found = 1; + } else { + $popup .= "<OPTION VALUE=\"$item\">$item"; + } } } } @@ -294,6 +297,9 @@ sub quietly_check_login() { } } } + if (!$loginok) { + delete $::COOKIE{"Bugzilla_login"}; + } return $loginok; } @@ -468,7 +474,8 @@ sub PutHeader { $h2 = ""; } - print "<HTML><HEAD><TITLE>$title</TITLE></HEAD>\n"; + print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n"; + print Param("headerhtml") . "\n</HEAD>\n"; print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"\n"; print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">\n"; |