httemplate/elements/header-popup.html

   1 <%
   2   my($title, $menubar) = ( shift, shift ); #$menubar is unused here though
   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   my $conf = new FS::Conf;
   6 %>
   7 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
   8 <HTML>
   9   <HEAD>
  10     <TITLE>
  11       <%= $title %>
  12     </TITLE>
  13     <META HTTP-Equiv="Cache-Control" Content="no-cache">
  14     <META HTTP-Equiv="Pragma" Content="no-cache">
  15     <META HTTP-Equiv="Expires" Content="0">
  16     <%= $head %>
  17   </HEAD>
  18   <BODY BGCOLOR="#e8e8e8" <%= $etc %>>
  19     <FONT SIZE=6>
  20       <CENTER><%= $title %></CENTER>
  21     </FONT>
  22     <BR><!--<BR>-->