X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Felements%2Fheader-popup.html;h=6c0f80b37c5d4f7e602cbeceb38b1a4d1c29b952;hp=43d9bc3afaa5f1b288898ed32bf85c3a82d896eb;hb=e215fc213a1eb9a3365cecf5ce82f1a58f154cd6;hpb=9509e5bfb7f9331303153cac24d7bfecbe2ea9f1 diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html index 43d9bc3af..6c0f80b37 100644 --- a/httemplate/elements/header-popup.html +++ b/httemplate/elements/header-popup.html @@ -1,23 +1,72 @@ -% -% my($title, $menubar) = ( shift, shift ); #$menubar is unused here though -% my $etc = @_ ? shift : ''; #$etc is for things like onLoad= etc. -% my $head = @_ ? shift : ''; #$head is for things that go in the section -% my $conf = new FS::Conf; -% +<%doc> +Example: + + <& /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 %> + <% encode_entities($title) || $title_noescape |n %> + + + - <% $head %> +% unless ( $no_jquery ) { + +% if ( $FS::CurrentUser::CurrentUser->option('printtofit') ) { + +% } +% } + <% $head |n %> - > + > + +% if ( $title || $title_noescape ) { -
<% $title %>
+
<% encode_entities($title) || $title_noescape |n %>
 +% } +% unless ( $nobr ) {
+% } +<%init> + +my( $title, $title_noescape, $menubar, $etc, $head ) = ( '', '', '', '', '' ); +my( $nobr, $no_jquery ) = ( 0, 0 ); +if ( ref($_[0]) ) { + my $opt = shift; + $title = $opt->{title}; + $title_noescape = $opt->{title_noescape}; + $menubar = $opt->{menubar}; + $etc = $opt->{etc}; + $head = $opt->{head}; + $nobr = $opt->{nobr}; + #$nocss = $opt->{nocss}; + $no_jquery = $opt->{no_jquery}; +} 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; + +