httemplate/elements/header.html

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