-<%
- my($title, $menubar) = ( shift, shift );
- my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
- my $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
-%>
- <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>
- <%= $title %>
- </FONT>
- <BR><BR>
- <%= $menubar ? "$menubar<BR><BR>" : '' %>
+% # for testing, disable the page menus/search boxes
+% if ( $FS::CurrentUser::CurrentUser->option('header-minimal') ) {
+<& header-minimal.html, @_ &>
+% } else {
+<& header-full.html, @_ &>
+% }
+<& /misc/edge_browser_check-header.html &>
projects / freeside.git / blobdiff