httemplate/elements/header.html

   1 <%
   2   my($title, $menubar) = @_;
   3   my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
   4 %>
   5     <HTML>
   6       <HEAD>
   7         <TITLE>
   8           <%= $title %>
   9         </TITLE>
  10         <META HTTP-Equiv="Cache-Control" Content="no-cache">
  11         <META HTTP-Equiv="Pragma" Content="no-cache">
  12         <META HTTP-Equiv="Expires" Content="0">
  13       </HEAD>
  14       <BODY BGCOLOR="#e8e8e8"<%= $etc %>>
  15           <FONT SIZE=6>
  16             <%= $title %>
  17           </FONT>
  18           <BR><BR>
  19           <%= $menubar ? "$menubar<BR><BR>" : '' %>