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