tag, for things like onLoad=
- 'head' => '', #included before closing tag
- 'nobr' => 0, #1 for no
after the title
- }
- );
+ <& /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);
@@ -29,14 +29,14 @@ Example:
>
+% if ( $title ) {
<% $title |h %>
-
+% }
% unless ( $nobr ) {
% }
-
<%init>
my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
@@ -55,7 +55,7 @@ if ( ref($_[0]) ) {
$etc = @_ ? shift : ''; #$etc is for things like onLoad= etc.
$head = @_ ? shift : ''; #$head is for things that go in the section
}
-$etc .= 'BGCOLOR="#f8f8f8"' if (! $etc =~ /BGCOLOR/i );
+$etc .= ' BGCOLOR="#f8f8f8"' unless $etc =~ /BGCOLOR/i;
my $conf = new FS::Conf;