<%doc> Example: include( '/elements/header.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); %# %# above is what RT declares, should we switch now? hopefully no glitches result %# or just fuck it, XHTML died anyway, HTML 5 or bust? <% $title %> <% include('menu.html', 'freeside_baseurl' => $fsurl, 'position' => $menu_position, 'nocss' => $nocss, ) |n %> <% include('init_overlib.html') |n %> <% $head |n %> <% $etc |n %> STYLE="margin-top:0; margin-bottom:0; margin-left:0; margin-right:0">
freeside <% $company_name || 'ExampleCo' %> Logged in as <% getotaker %> 
Preferences % if ( $conf->config("ticket_system") % && FS::TicketSystem->access_right(\%session, 'ModifySelf') ) { | Ticketing preferences % }
% if ( $menu_position eq 'top' ) { % }
<% include('/elements/about_freeside.html') |n %> <% include('/elements/about_rt.html') |n %>
% if ( $curuser->access_right('List customers') ) {

Advanced
% }
% if ( $conf->exists('address2-search') ) {

% }
% if ( $curuser->access_right('View invoices') ) {
% if ( $curuser->access_right('List invoices') ) { Adv % }
% }
% if ( $curuser->access_right('View customer services') ) {

Advanced
% }
% if ( $conf->config("ticket_system") ) {

Advanced
% }
% if ( $menu_position eq 'left' ) { % } % if ( $menu_position eq 'left' ) { % }

<% include('/elements/about_freeside.html') |n %>
<% include('/elements/about_rt.html') |n %>
<% $title %> % unless ( $nobr ) {

% } <% $menubar !~ /^\s*$/ ? "$menubar

" : '' %> <%init> my( $title, $menubar, $etc, $head ) = ( '', '', '', '' ); my( $nobr, $nocss ) = ( 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}; } 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 } my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; my $menu_position = $curuser->option('menu_position') || 'top'; #new default for 1.9 my $company_name; my @agentnums = $curuser->agentnums; if ( scalar(@agentnums) == 1 ) { $company_name = $conf->config('company_name', $agentnums[0] ); } else { $company_name = $conf->config('company_name'); }