This commit was generated by cvs2svn to compensate for changes in r4407,
[freeside.git] / httemplate / view / cust_main / misc.html
1 <%
2   my( $cust_main ) = @_;
3 %>
4
5 <%= ntable("#cccccc") %><TR><TD><%= &ntable("#cccccc",2) %>
6 <TR>
7   <TD ALIGN="right">Customer&nbsp;number</TD>
8   <TD BGCOLOR="#ffffff"><%= $cust_main->custnum %></TD>
9 </TR>
10
11 <%
12   my @agents = qsearch( 'agent', {} );
13   my $agent;
14   unless ( scalar(@agents) == 1 ) {
15     $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
16 %>
17
18 <TR>
19   <TD ALIGN="right">Agent</TD>
20   <TD BGCOLOR="#ffffff"><%= $agent->agentnum %>: <%= $agent->agent %></TD>
21 </TR>
22
23 <%
24   } else {
25     $agent = $agents[0];
26   }
27
28   my @referrals = qsearch( 'part_referral', {} );
29   unless ( scalar(@referrals) == 1 ) {
30     my $referral = qsearchs('part_referral', {
31       'refnum' => $cust_main->refnum
32     } );
33 %>
34
35 <TR>
36   <TD ALIGN="right">Advertising&nbsp;source</TD>
37   <TD BGCOLOR="#ffffff"><%= $referral->refnum %>: <%= $referral->referral%></TD>
38 </TR>
39
40 <% } %>
41
42 <TR>
43   <TD ALIGN="right">Order taker</TD>
44   <TD BGCOLOR="#ffffff"><%= $cust_main->otaker %></TD>
45 </TR>
46 <TR>
47   <TD ALIGN="right">Referring&nbsp;Customer</TD>
48   <TD BGCOLOR="#ffffff">
49
50 <%
51   my $referring_cust_main = '';
52   if ( $cust_main->referral_custnum
53        && ( $referring_cust_main =
54             qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
55           )
56      ) {
57 %>
58
59 <A HREF="<%= popurl(1) %>cust_main.cgi?<%= $cust_main->referral_custnum %>"><%=$cust_main->referral_custnum %>: 
60 <%=
61   ( $referring_cust_main->company
62       ? $referring_cust_main->company. ' ('.
63           $referring_cust_main->last. ', '. $referring_cust_main->first.
64           ')'
65       : $referring_cust_main->last. ', '. $referring_cust_main->first
66   )
67 %></A>
68
69 <% } %>
70
71   </TD>
72 </TR>
73
74 </TABLE></TD></TR></TABLE>
75