diff options
| author | ivan <ivan> | 2006-06-21 12:57:36 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-06-21 12:57:36 +0000 |
| commit | 3f19b759d4cb69bdf92e18b77a4c810d76d1b38d (patch) | |
| tree | 2483b3daf0c39656074c67ba7e2b3da3eab5c268 | |
| parent | 262da96c9a051046a22182d0b19e8126623d2207 (diff) | |
adding a header element for popups to replace CGI::header
| -rw-r--r-- | httemplate/elements/header-popup.html | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html new file mode 100644 index 000000000..73377abfe --- /dev/null +++ b/httemplate/elements/header-popup.html @@ -0,0 +1,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 %> + </TITLE> + <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="#e8e8e8" <%= $etc %>> + <FONT SIZE=6> + <CENTER><%= $title %></CENTER> + </FONT> + <BR><!--<BR>--> |