<%doc>
Example:
include( '/elements/header-popup.html',
{
'title' => 'Title',
'menubar' => \@menubar,
'etc' => '', #included in tag, for things like onLoad=
'head' => '', #included before closing tag
'nobr' => 0, #1 for no
after the title
}
);
#old-style
include( '/elements/header.html', 'Title', $menubar, $etc, $head);
<% $title |h %>
<% $head %>
>
<% $title |h %>
% unless ( $nobr ) {
% }
<%init>
my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
#my( $nobr, $nocss ) = ( 0, 0 );
my $nobr = 0;
if ( ref($_[0]) ) {
my $opt = shift;
$title = $opt->{title};
$menubar = $opt->{menubar};
$etc = $opt->{etc};
$head = $opt->{head};
$nobr = $opt->{nobr};
# $nocss = $opt->{nocss};
} else {
($title, $menubar) = ( shift, shift );
$etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
$head = @_ ? shift : ''; #$head is for things that go in the section
}
$etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;
my $conf = new FS::Conf;