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">
23 <% encode_entities($title) || $title_noescape |n %>
25 <!-- per RT, to prevent IE compatibility mode -->
26 <meta http-equiv="X-UA-Compatible" content="IE=edge" />
27 <!-- The X-UA-Compatible <meta> tag above must be very early in <head> -->
28 <META HTTP-Equiv="Cache-Control" Content="no-cache">
29 <META HTTP-Equiv="Pragma" Content="no-cache">
30 <META HTTP-Equiv="Expires" Content="0">
31 % unless ( $no_jquery ) {
32 <SCRIPT SRC="<% $fsurl %>elements/jquery-3.3.1.js"></SCRIPT>
33 <SCRIPT SRC="<% $fsurl %>elements/jquery-migrate-3.0.1.min.js"></SCRIPT>
34 <SCRIPT SRC="<% $fsurl %>elements/jquery-ui-1.12.1.min.js"></SCRIPT>
35 <SCRIPT SRC="<% $fsurl %>elements/jquery.validate-1.17.0.min.js"></SCRIPT>
36 % if ( $FS::CurrentUser::CurrentUser->option('printtofit') ) {
37 <SCRIPT SRC="<% $fsurl %>elements/printtofit.js"></SCRIPT>
40 <SCRIPT SRC="<% $fsurl %>elements/topreload.js"></SCRIPT>
44 % if ($m->notes('inline_stylesheet')) { # for email delivery
45 <style type="text/css">
46 <& /elements/freeside.css &>
49 <link href="<%$fsurl%>elements/freeside.css?v=<% $FS::VERSION %>" type="text/css" rel="stylesheet">
51 % if ( $title || $title_noescape ) {
53 <CENTER><% encode_entities($title) || $title_noescape |n %></CENTER>
61 my( $title, $title_noescape, $menubar, $etc, $head ) = ( '', '', '', '', '' );
62 my( $nobr, $no_jquery ) = ( 0, 0 );
65 $title = $opt->{title};
66 $title_noescape = $opt->{title_noescape};
67 $menubar = $opt->{menubar};
71 #$nocss = $opt->{nocss};
72 $no_jquery = $opt->{no_jquery};
74 ($title, $menubar) = ( shift, shift );
75 $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
76 $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
78 $etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;
80 my $conf = new FS::Conf;