X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fheader-popup.html;h=327673bc648f35a8fd8886646ffc4fa89c112e80;hb=fad1695f2df61d3fadc5d6fc85527e09d083bf20;hp=cd8da56575e80243e708e4d7d56c801ec1df68ec;hpb=624b2d44625f69d71175c3348cae635d580c890b;p=freeside.git
diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html
index cd8da5657..327673bc6 100644
--- a/httemplate/elements/header-popup.html
+++ b/httemplate/elements/header-popup.html
@@ -1,42 +1,78 @@
+<%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);
+
+%doc>
- <% $title %>
+ <% encode_entities($title) || $title_noescape |n %>
+
+
+
- <% $head %>
+% unless ( $no_jquery ) {
+
+% if ( $FS::CurrentUser::CurrentUser->option('printtofit') ) {
+
+% }
+% }
+
+ <% $head |n %>
- >
+ >
+% if ($m->notes('inline_stylesheet')) { # for email delivery
+
+% } else {
+% }
+% if ( $title || $title_noescape ) {
- <% $title %>
+ <% encode_entities($title) || $title_noescape |n %>
-
+% }
% unless ( $nobr ) {
% }
-
<%init>
-my( $title, $menubar, $etc, $head ) = ( '', '', '', '' );
-#my( $nobr, $nocss ) = ( 0, 0 );
-my $nobr = 0;
+my( $title, $title_noescape, $menubar, $etc, $head ) = ( '', '', '', '', '' );
+my( $nobr, $no_jquery ) = ( 0, 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};
+ $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;