httemplate/elements/header-popup.html

   1 <%doc>
   2
   3 Example:
   4
   5   <& /elements/header-popup.html,
   6        {
   7          'title'   => 'Title',
   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
  12        }
  13   &>
  14
  15   #old-style
  16   include( '/elements/header.html', 'Title', $menubar, $etc, $head);
  17
  18 </%doc>
  19 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  20 <HTML>
  21   <HEAD>
  22     <TITLE>
  23       <% encode_entities($title) || $title_noescape |n %>
  24     </TITLE>
  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>
  38 %     }
  39 %   }
  40     <SCRIPT SRC="<% $fsurl %>elements/topreload.js"></SCRIPT>
  41     <% $head |n %>
  42   </HEAD>
  43   <BODY <% $etc |n %>>
  44 %   if ($m->notes('inline_stylesheet')) { # for email delivery
  45     <style type="text/css">
  46     <& /elements/freeside.css &>
  47     </style>
  48 %   } else {
  49     <link href="<%$fsurl%>elements/freeside.css?v=<% $FS::VERSION %>" type="text/css" rel="stylesheet">
  50 %   }
  51 % if ( $title || $title_noescape ) {
  52     <FONT SIZE=6>
  53       <CENTER><% encode_entities($title) || $title_noescape |n %></CENTER>
  54     </FONT>
  55 % }
  56 % unless ( $nobr ) {
  57     <BR><!--<BR>-->
  58 % }
  59 <%init>
  60
  61 my( $title, $title_noescape, $menubar, $etc, $head ) = ( '', '', '', '', '' );
  62 my( $nobr, $no_jquery ) = ( 0, 0 );
  63 if ( ref($_[0]) ) {
  64   my $opt = shift;
  65   $title          = $opt->{title};
  66   $title_noescape = $opt->{title_noescape};
  67   $menubar        = $opt->{menubar};
  68   $etc            = $opt->{etc};
  69   $head           = $opt->{head};
  70   $nobr           = $opt->{nobr};
  71   #$nocss          = $opt->{nocss};
  72   $no_jquery      = $opt->{no_jquery};
  73 } else {
  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
  77 }
  78 $etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;
  79
  80 my $conf = new FS::Conf;
  81
  82 </%init>