diff options
author | terry%netscape.com <> | 1998-09-01 13:33:37 +0200 |
---|---|---|
committer | terry%netscape.com <> | 1998-09-01 13:33:37 +0200 |
commit | 548d8d045b4cfdfa54f207e05cf351d6f09f0e66 (patch) | |
tree | aee57fc20889ab008ba9a39cfca603c41b36d57a /CGI.tcl | |
parent | 025b09350142ffb76fe9a35597cdad6404dff7f7 (diff) | |
download | bugzilla-548d8d045b4cfdfa54f207e05cf351d6f09f0e66.tar.gz bugzilla-548d8d045b4cfdfa54f207e05cf351d6f09f0e66.tar.xz |
Added parameters to specify the HTML that goes at the top of every
page. The banner.html and blurb.html files are now obsolete!
Diffstat (limited to 'CGI.tcl')
-rwxr-xr-x | CGI.tcl | 14 |
1 files changed, 2 insertions, 12 deletions
@@ -289,22 +289,12 @@ name=PleaseMailAPassword> } -proc CopyOut {filename} { - if {[file exists $filename]} { - set fid [open $filename "r"] - while {[gets $fid line] > 0} { - puts $line - } - close $fid - } -} - proc PutHeader {title h1 {h2 ""}} { puts "<HTML><HEAD><TITLE>$title</TITLE></HEAD>"; puts "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\""; puts "LINK=\"#0000EE\" VLINK=\"#551A8B\" ALINK=\"#FF0000\">"; - CopyOut "banner.html" + puts [Param bannerhtml] puts "<TABLE BORDER=0 CELLPADDING=12 CELLSPACING=0 WIDTH=\"100%\">"; puts " <TR>\n"; @@ -319,7 +309,7 @@ proc PutHeader {title h1 {h2 ""}} { puts " </TD>\n"; puts " <TD>\n"; - CopyOut "blurb.html" + puts [Param blurbhtml] puts "</TD></TR></TABLE>\n"; |