-<%
- my( $cust_main ) = @_;
-%>
+%
+% my( $cust_main ) = @_;
+% my $conf = new FS::Conf;
+% my $date_format = ($conf->config('date_format') || "%m/%d/%Y");
+%
+
+
+<% ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
-<%= ntable("#cccccc") %><TR><TD><%= &ntable("#cccccc",2) %>
<TR>
<TD ALIGN="right">Customer number</TD>
- <TD BGCOLOR="#ffffff"><%= $cust_main->custnum %></TD>
+ <TD BGCOLOR="#ffffff"><% $cust_main->custnum %></TD>
</TR>
-<%
- my @agents = qsearch( 'agent', {} );
- my $agent;
- unless ( scalar(@agents) == 1 ) {
- $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
-%>
+<TR>
+ <TD ALIGN="right">Status</TD>
+ <TD BGCOLOR="#ffffff"><FONT COLOR="#<% $cust_main->statuscolor %>"><B><% ucfirst($cust_main->status) %></B></FONT></TD>
+</TR>
+%
+% my @agents = qsearch( 'agent', {} );
+% my $agent;
+% unless ( scalar(@agents) == 1 ) {
+% $agent = qsearchs('agent',{ 'agentnum' => $cust_main->agentnum } );
+%
+
<TR>
<TD ALIGN="right">Agent</TD>
- <TD BGCOLOR="#ffffff"><%= $agent->agentnum %>: <%= $agent->agent %></TD>
+ <TD BGCOLOR="#ffffff"><% $agent->agentnum %>: <% $agent->agent %></TD>
</TR>
+%
+% } else {
+% $agent = $agents[0];
+% }
+%
+% if ( $cust_main->agent_custid ) {
+%
-<%
- } else {
- $agent = $agents[0];
- }
-
- my @referrals = qsearch( 'part_referral', {} );
- unless ( scalar(@referrals) == 1 ) {
- my $referral = qsearchs('part_referral', {
- 'refnum' => $cust_main->refnum
- } );
-%>
<TR>
- <TD ALIGN="right">Advertising source</TD>
- <TD BGCOLOR="#ffffff"><%= $referral->refnum %>: <%= $referral->referral%></TD>
+ <TD ALIGN="right">Agent customer ref#</TD>
+ <TD BGCOLOR="#ffffff"><% $cust_main->agent_custid %></TD>
</TR>
+%
+% }
+%
+% unless ( FS::part_referral->num_part_referral == 1 ) {
+% my $referral = qsearchs('part_referral', {
+% 'refnum' => $cust_main->refnum
+% } );
+%
-<% } %>
<TR>
- <TD ALIGN="right">Order taker</TD>
- <TD BGCOLOR="#ffffff"><%= $cust_main->otaker %></TD>
+ <TD ALIGN="right">Advertising source</TD>
+ <TD BGCOLOR="#ffffff"><% $referral->refnum %>: <% $referral->referral%></TD>
</TR>
+% }
+
+
<TR>
<TD ALIGN="right">Referring Customer</TD>
<TD BGCOLOR="#ffffff">
+%
+% my $referring_cust_main = '';
+% if ( $cust_main->referral_custnum
+% && ( $referring_cust_main =
+% qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
+% )
+% ) {
+%
+
+<A HREF="<% popurl(1) %>cust_main.cgi?<% $cust_main->referral_custnum %>"><%$cust_main->referral_custnum %>:
<%
- my $referring_cust_main = '';
- if ( $cust_main->referral_custnum
- && ( $referring_cust_main =
- qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
- )
- ) {
-%>
-
-<A HREF="<%= popurl(1) %>cust_main.cgi?<%= $cust_main->referral_custnum %>"><%=$cust_main->referral_custnum %>:
-<%=
( $referring_cust_main->company
? $referring_cust_main->company. ' ('.
$referring_cust_main->last. ', '. $referring_cust_main->first.
: $referring_cust_main->last. ', '. $referring_cust_main->first
)
%></A>
+% }
-<% } %>
</TD>
</TR>
+<TR>
+ <TD ALIGN="right">Order taker</TD>
+ <TD BGCOLOR="#ffffff"><% $cust_main->otaker %></TD>
+</TR>
+
+ <TR>
+ <TD ALIGN="right">Signup Date</TD>
+ <TD BGCOLOR="#ffffff"><% $cust_main->signupdate ? time2str($date_format, $cust_main->signupdate) : '' %></TD>
+ </TR>
+
+% if ( $conf->exists('cust_main-enable_birthdate') ) {
+% my $dt = DateTime->from_epoch(epoch => $cust_main->birthdate,
+% time_zone=>'floating',
+% );
+
+ <TR>
+ <TD ALIGN="right">Date of Birth</TD>
+ <TD BGCOLOR="#ffffff"><% $cust_main->birthdate ne '' ? $dt->strftime($date_format) : '' %></TD>
+ </TR>
+
+% }
+
</TABLE></TD></TR></TABLE>