<%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,
'etc' => $opt{'etc'},
}
&>
% 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)";