<%doc> Examples: <& /elements/header-cust_main.html, view => 'Basics', #required cust_main => $cust_main, # cust_main or custnum is required custnum => $custnum, # &> <& /elements/header.html, { 'title' => $title, 'title_noescape' => $title_noescape, 'nobr' => 1, } &> % my @part_tag = $cust_main->part_tag; % if ( $conf->config('cust_tag-location') eq 'top' && @part_tag ) { % foreach my $part_tag ( @part_tag ) { % }
tagcolor) ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' : '' %>><% $part_tag->tagname.': '. $part_tag->tagdesc |h %>
% } <& /view/cust_main/menu.html, cust_main => $cust_main, show => $opt{'view'} &>
<& /elements/init_overlib.html &>
<%init> my $curuser = $FS::CurrentUser::CurrentUser; my $conf = new FS::Conf; my %opt = @_; my $cust_main = $opt{'cust_main'} || qsearchs( { 'table' => 'cust_main', 'hashref' => { 'custnum' => $opt{'custnum'} }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }); die "Customer not found!" unless $cust_main; my $title = mt("Customer").' #'. $cust_main->display_custnum. ': '; my $title_noescape = $title. encode_entities($cust_main->name); $title .= $cust_main->name; if ( $curuser->num_agents ) { $title_noescape = encode_entities($cust_main->agent->agent). " $title_noescape"; $title = $cust_main->agent->agent. " $title"; } my $status = $cust_main->status_label; $status .= ' (Cancelled)' if $cust_main->is_status_delay_cancel; $title_noescape .= ' ('. $status. ')'; $title .= " ($status)";