5 <& /elements/header-popup.html,
8 'menubar' => \@menubar,
9 'etc' => '', #included in <BODY> tag, for things like onLoad=
10 'head' => '', #included before closing </HEAD> tag
11 'nobr' => 0, #1 for no <BR><BR> after the title
16 include( '/elements/header.html', 'Title', $menubar, $etc, $head);
19 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
25 <META HTTP-Equiv="Cache-Control" Content="no-cache">
26 <META HTTP-Equiv="Pragma" Content="no-cache">
27 <META HTTP-Equiv="Expires" Content="0">
31 <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
34 <CENTER><% $title |h %></CENTER>
42 my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
43 #my( $nobr, $nocss ) = ( 0, 0 );
47 $title = $opt->{title};
48 $menubar = $opt->{menubar};
52 # $nocss = $opt->{nocss};
54 ($title, $menubar) = ( shift, shift );
55 $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
56 $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
58 $etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;
60 my $conf = new FS::Conf;