httemplate/view/cust_main/misc.html

   1 <%
   2   my( $cust_main ) = @_;
   3   my $conf = new FS::Conf;
   4 %>
   5
   6 <%= ntable("#cccccc") %><TR><TD><%= &ntable("#cccccc",2) %>
   7
   8 <TR>
   9   <TD ALIGN="right">Customer&nbsp;number</TD>
  10   <TD BGCOLOR="#ffffff"><%= $cust_main->custnum %></TD>
  11 </TR>
  12
  13 <TR>
  14   <TD ALIGN="right">Status</TD>
  15   <TD BGCOLOR="#ffffff"><FONT COLOR="#<%= $cust_main->statuscolor %>"><B><%= ucfirst($cust_main->status) %></B></FONT></TD>
  16 </TR>
  17
  18 <%
  19   my @agents = qsearch( 'agent', {} );
  20   my $agent;
  21   unless ( scalar(@agents) == 1 ) {
  22     $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
  23 %>
  24
  25 <TR>
  26   <TD ALIGN="right">Agent</TD>
  27   <TD BGCOLOR="#ffffff"><%= $agent->agentnum %>: <%= $agent->agent %></TD>
  28 </TR>
  29
  30 <%
  31   } else {
  32     $agent = $agents[0];
  33   }
  34
  35   if ( $cust_main->agent_custid ) {
  36 %>
  37
  38 <TR>
  39   <TD ALIGN="right">Agent customer ref#</TD>
  40   <TD BGCOLOR="#ffffff"><%= $cust_main->agent_custid %></TD>
  41 </TR>
  42
  43 <%
  44   }
  45
  46   unless ( FS::part_referral->num_part_referral == 1 ) {
  47     my $referral = qsearchs('part_referral', {
  48       'refnum' => $cust_main->refnum
  49     } );
  50 %>
  51
  52 <TR>
  53   <TD ALIGN="right">Advertising&nbsp;source</TD>
  54   <TD BGCOLOR="#ffffff"><%= $referral->refnum %>: <%= $referral->referral%></TD>
  55 </TR>
  56
  57 <% } %>
  58
  59 <TR>
  60   <TD ALIGN="right">Referring&nbsp;Customer</TD>
  61   <TD BGCOLOR="#ffffff">
  62
  63 <%
  64   my $referring_cust_main = '';
  65   if ( $cust_main->referral_custnum
  66        && ( $referring_cust_main =
  67             qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
  68           )
  69      ) {
  70 %>
  71
  72 <A HREF="<%= popurl(1) %>cust_main.cgi?<%= $cust_main->referral_custnum %>"><%=$cust_main->referral_custnum %>:
  73 <%=
  74   ( $referring_cust_main->company
  75       ? $referring_cust_main->company. ' ('.
  76           $referring_cust_main->last. ', '. $referring_cust_main->first.
  77           ')'
  78       : $referring_cust_main->last. ', '. $referring_cust_main->first
  79   )
  80 %></A>
  81
  82 <% } %>
  83
  84   </TD>
  85 </TR>
  86
  87 <TR>
  88   <TD ALIGN="right">Order taker</TD>
  89   <TD BGCOLOR="#ffffff"><%= $cust_main->otaker %></TD>
  90 </TR>
  91
  92 </TABLE></TD></TR></TABLE>
  93