adding a header element for popups to replace CGI::header

author ivan <ivan>

Wed, 21 Jun 2006 12:57:36 +0000 (12:57 +0000)

committer ivan <ivan>

Wed, 21 Jun 2006 12:57:36 +0000 (12:57 +0000)
author ivan <ivan>
Wed, 21 Jun 2006 12:57:36 +0000 (12:57 +0000)
committer ivan <ivan>
Wed, 21 Jun 2006 12:57:36 +0000 (12:57 +0000)
diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html

new file mode 100644 (file)

index 0000000..73377ab
--- /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>-->