httemplate/elements/header-popup.html

   1 <%doc>
   2
   3 Example:
   4
   5   include( '/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       <% $title |h %>
  24     </TITLE>
  25     <META HTTP-Equiv="Cache-Control" Content="no-cache">
  26     <META HTTP-Equiv="Pragma" Content="no-cache">
  27     <META HTTP-Equiv="Expires" Content="0">
  28     <% $head %>
  29   </HEAD>
  30   <BODY <% $etc %>>
  31     <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
  32     <FONT SIZE=6>
  33       <CENTER><% $title |h %></CENTER>
  34     </FONT>
  35
  36 % unless ( $nobr ) {
  37     <BR><!--<BR>-->
  38 % }
  39
  40 <%init>
  41
  42 my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
  43 #my( $nobr, $nocss ) = ( 0, 0 );
  44 my $nobr = 0;
  45 if ( ref($_[0]) ) {
  46   my $opt = shift;
  47   $title   = $opt->{title};
  48   $menubar = $opt->{menubar};
  49   $etc     = $opt->{etc};
  50   $head    = $opt->{head};
  51   $nobr    = $opt->{nobr};
  52 #  $nocss   = $opt->{nocss};
  53 } else {
  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
  57 }
  58 $etc .= 'BGCOLOR="#f8f8f8"' if (! $etc =~ /BGCOLOR/i );
  59
  60 my $conf = new FS::Conf;
  61
  62 </%init>