httemplate/elements/header-popup.html

   1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
   2 <HTML>
   3   <HEAD>
   4     <TITLE>
   5       <% $title %>
   6     </TITLE>
   7     <META HTTP-Equiv="Cache-Control" Content="no-cache">
   8     <META HTTP-Equiv="Pragma" Content="no-cache">
   9     <META HTTP-Equiv="Expires" Content="0">
  10     <% $head %>
  11   </HEAD>
  12   <BODY BGCOLOR="#f8f8f8" <% $etc %>>
  13     <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet">
  14     <FONT SIZE=6>
  15       <CENTER><% $title %></CENTER>
  16     </FONT>
  17
  18 % unless ( $nobr ) {
  19     <BR><!--<BR>-->
  20 % }
  21
  22 <%init>
  23
  24 my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
  25 #my( $nobr, $nocss ) = ( 0, 0 );
  26 my $nobr = 0;
  27 if ( ref($_[0]) ) {
  28   my $opt = shift;
  29   $title   = $opt->{title};
  30   $menubar = $opt->{menubar};
  31   $etc     = $opt->{etc};
  32   $head    = $opt->{head};
  33   $nobr    = $opt->{nobr};
  34 #  $nocss   = $opt->{nocss};
  35 } else {
  36   ($title, $menubar) = ( shift, shift );
  37   $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
  38   $head = @_ ? shift : ''; #$head is for things that go in the <HEAD> section
  39 }
  40
  41 my $conf = new FS::Conf;
  42
  43 </%init>