communigate (phase 2): rules: start of adding conditions and actions to rule edit...
[freeside.git] / httemplate / elements / header-popup.html
1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
2 <HTML>
3   <HEAD>
4     <TITLE>
5       <% $title %>
6     </TITLE>
7     <META HTTP-Equiv="Cache-Control" Content="no-cache">
8     <META HTTP-Equiv="Pragma" Content="no-cache">
9     <META HTTP-Equiv="Expires" Content="0"> 
10     <% $head %>
11   </HEAD>
12   <BODY BGCOLOR="#f8f8f8" <% $etc %>>
13     <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
14     <FONT SIZE=6>
15       <CENTER><% $title %></CENTER>
16     </FONT>
17
18 % unless ( $nobr ) {
19     <BR><!--<BR>-->
20 % }
21
22 <%init>
23
24 my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
25 #my( $nobr, $nocss ) = ( 0, 0 );
26 my $nobr = 0;
27 if ( ref($_[0]) ) {
28   my $opt = shift;
29   $title   = $opt->{title};
30   $menubar = $opt->{menubar};
31   $etc     = $opt->{etc};
32   $head    = $opt->{head};
33   $nobr    = $opt->{nobr};
34 #  $nocss   = $opt->{nocss};
35 } else {
36   ($title, $menubar) = ( shift, shift );
37   $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
38   $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
39 }
40
41 my $conf = new FS::Conf;
42
43 </%init>