Patches by Ken Jenks <kjenks@abiblion.com> and jug@tellux.de -- make the…

Patches by Ken Jenks <kjenks@abiblion.com> and jug@tellux.de -- make the Javascript behave under IE5 and under Netscape 3.x

Patches by Ken Jenks <kjenks@abiblion.com> and jug@tellux.de -- make the…
b018c7a4 · terry%mozilla.org · a1fe6bea · b018c7a4
Commit b018c7a4 authored Feb 16, 2000 by terry%mozilla.org
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

CGI.pl CGI.pl +3 -2

No files found.
--- a/CGI.pl
+++ b/CGI.pl
@@ -734,7 +734,7 @@ name=PleaseMailAPassword>


 sub PutHeader {
-    my ($title, $h1, $h2, $extra, $ignoreshutdown) = (@_);
+    my ($title, $h1, $h2, $extra, $ignoreshutdown, $jscript) = (@_);

    if (!defined $h1) {
 	$h1 = $title;
@@ -745,9 +745,10 @@ sub PutHeader {
    if (!defined $extra) {
 	$extra = "";
    }
+    $jscript ||= "";

    print "<HTML><HEAD>\n<TITLE>$title</TITLE>\n";
-    print Param("headerhtml") . "\n</HEAD>\n";
+    print Param("headerhtml") . "\n$jscript\n</HEAD>\n";
    print "<BODY   BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\"\n";
    print "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\" $extra>\n";