httemplate/elements/header-cust_main.html

   1 <%doc>
   2
   3 Examples:
   4
   5   <& /elements/header-cust_main.html,
   6        view      => 'Basics', #required
   7        cust_main => $cust_main, # cust_main or custnum is required
   8        custnum   => $custnum,   #
   9   &>
  10
  11 </%doc>
  12 <& /elements/header.html, {
  13              'title' => $title,
  14              'title_noescape' => $title_noescape,
  15              'head'  => $head,
  16              'nobr'  => 1,
  17           }
  18 &>
  19
  20 % my @part_tag = $cust_main->part_tag;
  21 % if ( $conf->config('cust_tag-location') eq 'top' && @part_tag ) {
  22 <TABLE STYLE="margin-bottom:8px" CELLSPACING=2>
  23 %   foreach my $part_tag ( @part_tag ) {
  24 <TR>
  25   <TD>
  26       <FONT SIZE="+1"
  27             <% length($part_tag->tagcolor)
  28                  ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"'
  29                  : ''
  30       %>><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT>
  31   </TD>
  32 </TR>
  33 %   }
  34 </TABLE>
  35 % }
  36
  37 <& /view/cust_main/menu.html, cust_main => $cust_main, show => $opt{'view'} &>
  38 <BR>
  39
  40 <DIV CLASS="fstabcontainer">
  41
  42 <& /elements/init_overlib.html &>
  43
  44 <SCRIPT TYPE="text/javascript">
  45 function areyousure(href, message) {
  46   if (confirm(message) == true)
  47     window.location.href = href;
  48 }
  49 function areyousure_popup(message, action, actionlabel) {
  50   if (confirm(message) == true) {
  51 <% include('/elements/popup_link_onclick.html',
  52      'js_action' => 'action',
  53      'js_actionlabel' => 'actionlabel',
  54    ) %>
  55   }
  56 }
  57 </SCRIPT>
  58
  59 <br>
  60 <%init>
  61
  62 my $curuser = $FS::CurrentUser::CurrentUser;
  63
  64 my $conf = new FS::Conf;
  65
  66 my %opt = @_;
  67
  68 my $cust_main = $opt{'cust_main'} || qsearchs( {
  69   'table'     => 'cust_main',
  70   'hashref'   => { 'custnum' => $opt{'custnum'} },
  71   'extra_sql' => ' AND '. $curuser->agentnums_sql,
  72 });
  73 die "Customer not found!" unless $cust_main;
  74
  75 my $title = mt("Customer").' #'. $cust_main->display_custnum. ': ';
  76 my $title_noescape = $title. encode_entities($cust_main->name);
  77 $title .= $cust_main->name;
  78
  79 if ( $curuser->num_agents ) {
  80   $title_noescape =
  81     encode_entities($cust_main->agent->agent). " $title_noescape";
  82   $title = $cust_main->agent->agent. " $title";
  83 }
  84
  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)";
  89
  90 my $ie_compat = $conf->config('ie-compatibility_mode');
  91 my $head = '';
  92 if ( $ie_compat ) {
  93   $head = qq(<meta http-equiv="X-UA-Compatible" content="IE=$ie_compat" />);
  94 }
  95
  96 </%init>