blob: a959fa9fe10e334bd75649d8d0dce7d3bc807417 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
%
% my($title, $menubar) = ( shift, shift ); #$menubar is unused here though
% my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
% my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
% my $conf = new FS::Conf;
%
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<TITLE>
<% $title |h %>
</TITLE>
<!-- per RT, to prevent IE compatibility mode -->
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
<!-- The X-UA-Compatible <meta> tag above must be very early in <head> -->
<META HTTP-Equiv="Cache-Control" Content="no-cache">
<META HTTP-Equiv="Pragma" Content="no-cache">
<META HTTP-Equiv="Expires" Content="0">
<% $head %>
</HEAD>
<BODY BGCOLOR="#f8f8f8" <% $etc %>>
|
