1 <% &ntable("#cccccc") %>
4 <% include('/elements/tr-select-cust_tag.html',
11 <% include('/elements/tr-select-agent.html',
12 'curr_value' => $cust_main->agentnum,
13 'label' => "<B>${r}Agent</B>",
14 'empty_label' => 'Select agent',
15 'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ),
20 % if ( $conf->exists('cust_main-edit_agent_custid') ) {
23 <TD ALIGN="right">Customer identifier</TD>
24 <TD><INPUT TYPE="text" NAME="agent_custid" VALUE="<% $cust_main->agent_custid %>"></TD>
29 <INPUT TYPE="hidden" NAME="agent_custid" VALUE="<% $cust_main->agent_custid %>">
34 <% include('/elements/tr-select-cust_class.html',
35 'curr_value' => $cust_main->classnum,
37 #'empty_label' => '(none)',
42 %# referral (advertising source)
43 %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
44 %if ( $custnum && ! $conf->exists('editreferrals') ) {
46 <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
50 <% include('/elements/tr-select-part_referral.html',
51 'curr_value' => $refnum
58 %my $referring_cust_main = '';
59 %if ( $cust_main->referral_custnum
60 % and $referring_cust_main =
61 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
62 % and ! $curuser->access_right('Edit referring customer')
66 <TD ALIGN="right">Referring customer</TD>
68 <A HREF="<% popurl(1) %>/cust_main.cgi?<% $cust_main->referral_custnum %>"><% $cust_main->referral_custnum %>: <% $referring_cust_main->name %></A>
71 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="<% $cust_main->referral_custnum %>">
73 % } elsif ( ! $conf->exists('disable_customer_referrals') ) {
76 <TD ALIGN="right">Referring customer</TD>
78 <!-- <INPUT TYPE="text" NAME="referral_custnum" VALUE=""> -->
79 <% include('/elements/search-cust_main.html',
80 'field_name' => 'referral_custnum',
81 'curr_value' => $cust_main->referral_custnum,
88 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="">
92 % if ( $conf->exists('cust_main-edit_signupdate') ) {
93 <% include('/elements/tr-input-date-field.html', {
94 'name' => 'signupdate',
95 'value' => $cust_main->signupdate,
96 'label' => 'Signup date',
97 'format' => ( $conf->config('date_format') || "%m/%d/%Y" ),
106 my( $cust_main, %opt ) = @_;
108 my $custnum = $opt{'custnum'};
110 my $conf = new FS::Conf;
112 my $curuser = $FS::CurrentUser::CurrentUser;
114 my $r = qq!<font color="#ff0000">*</font> !;