summaryrefslogtreecommitdiff
path: root/httemplate/elements/header-popup.html
blob: 01a7ba87fceb8b6f5416d1dbccd16aa12ec72a00 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
<%doc>

Example:

  <& /elements/header-popup.html,
       {
         'title'   => 'Title',
         'menubar' => \@menubar,
         'etc'     => '', #included in <BODY> tag, for things like onLoad=
         'head'    => '', #included before closing </HEAD> tag
         'nobr'    => 0,  #1 for no <BR><BR> after the title
       }
  &>

  #old-style
  include( '/elements/header.html', 'Title', $menubar, $etc, $head);

</%doc>
<!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 <% $etc %>>
    <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
% if ( $title ) {
    <FONT SIZE=6>
      <CENTER><% $title |h %></CENTER>
    </FONT>
% }
% unless ( $nobr ) {
    <BR><!--<BR>-->
% }
<%init>

my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
#my( $nobr, $nocss ) = ( 0, 0 );
my $nobr = 0;
if ( ref($_[0]) ) {
  my $opt = shift;
  $title   = $opt->{title};
  $menubar = $opt->{menubar};
  $etc     = $opt->{etc};
  $head    = $opt->{head};
  $nobr    = $opt->{nobr};
#  $nocss   = $opt->{nocss};
} else {
  ($title, $menubar) = ( shift, shift );
  $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
  $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
}
$etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;

my $conf = new FS::Conf;

</%init>