diff options
Diffstat (limited to 'httemplate/elements/header-popup.html')
-rw-r--r-- | httemplate/elements/header-popup.html | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/httemplate/elements/header-popup.html b/httemplate/elements/header-popup.html new file mode 100644 index 0000000..2bd4a96 --- /dev/null +++ b/httemplate/elements/header-popup.html @@ -0,0 +1,61 @@ +<%doc> + +Example: + + include( '/elements/header-popup.html', + { + 'title' => 'Title', + 'menubar' => \@menubar, + 'etc' => '', #included in <BODY> tag, for things like onLoad= + 'head' => '', #included before closing </HEAD> tag + 'nobr' => 0, #1 for no <BR><BR> after the title + } + ); + + #old-style + include( '/elements/header.html', 'Title', $menubar, $etc, $head); + +</%doc> +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> +<HTML> + <HEAD> + <TITLE> + <% $title %> + </TITLE> + <META HTTP-Equiv="Cache-Control" Content="no-cache"> + <META HTTP-Equiv="Pragma" Content="no-cache"> + <META HTTP-Equiv="Expires" Content="0"> + <% $head %> + </HEAD> + <BODY BGCOLOR="#f8f8f8" <% $etc %>> + <link href="<%$fsurl%>elements/freeside.css" type="text/css" rel="stylesheet"> + <FONT SIZE=6> + <CENTER><% $title %></CENTER> + </FONT> + +% unless ( $nobr ) { + <BR><!--<BR>--> +% } + +<%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 <HEAD> section +} + +my $conf = new FS::Conf; + +</%init> |