5 <& /elements/header-cust_main.html,
6 view => 'basics', #required
7 cust_main => $cust_main, # cust_main or custnum is required
12 <& /elements/header.html, {
14 'title_noescape' => $title_noescape,
17 'include_selectize' => $opt{include_selectize} ? 1 : 0,
22 % my @part_tag = $cust_main->part_tag;
23 % if ( $conf->config('cust_tag-location') eq 'top' && @part_tag ) {
24 <TABLE STYLE="margin-bottom:8px" CELLSPACING=2>
25 % foreach my $part_tag ( @part_tag ) {
29 <% length($part_tag->tagcolor)
30 ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
32 %>><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
38 <& /view/cust_main/menu.html, cust_main => $cust_main, show => $opt{'view'} &>
41 <DIV CLASS="fstabcontainer">
43 <& /elements/init_overlib.html &>
45 <SCRIPT TYPE="text/javascript">
46 function areyousure(href, message) {
47 if (confirm(message) == true)
48 window.location.href = href;
50 function areyousure_popup(message, action, actionlabel) {
51 if (confirm(message) == true) {
52 <% include('/elements/popup_link_onclick.html',
53 'js_action' => 'action',
54 'js_actionlabel' => 'actionlabel',
62 my $curuser = $FS::CurrentUser::CurrentUser;
64 my $conf = new FS::Conf;
68 my $cust_main = $opt{'cust_main'} || qsearchs( {
69 'table' => 'cust_main',
70 'hashref' => { 'custnum' => $opt{'custnum'} },
71 'extra_sql' => ' AND '. $curuser->agentnums_sql,
73 die "Customer not found!" unless $cust_main;
75 my $title = mt("Customer").' #'. $cust_main->display_custnum. ': ';
76 my $title_noescape = $title. encode_entities($cust_main->name);
77 $title .= $cust_main->name;
79 if ( $curuser->num_agents ) {
81 encode_entities($cust_main->agent->agent). " $title_noescape";
82 $title = $cust_main->agent->agent. " $title";
85 my $status = $cust_main->status_label;
86 $status .= ' (Cancelled)' if $cust_main->is_status_delay_cancel;
87 $title_noescape .= ' (<B><FONT COLOR="#'. $cust_main->statuscolor. '">'. $status. '</FONT></B>)';
88 $title .= " ($status)";
90 my $ie_compat = $conf->config('ie-compatibility_mode');
93 $head = qq(<meta http-equiv="X-UA-Compatible" content="IE=$ie_compat" />);