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 %>">
33 %# referral (advertising source)
34 %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
35 %if ( $custnum && ! $conf->exists('editreferrals') ) {
37 <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
41 <% include('/elements/tr-select-part_referral.html',
42 'curr_value' => $refnum
49 %my $referring_cust_main = '';
50 %if ( $cust_main->referral_custnum
51 % and $referring_cust_main =
52 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
53 % and ! $curuser->access_right('Edit referring customer')
57 <TD ALIGN="right">Referring customer</TD>
59 <A HREF="<% popurl(1) %>/cust_main.cgi?<% $cust_main->referral_custnum %>"><% $cust_main->referral_custnum %>: <% $referring_cust_main->name %></A>
62 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="<% $cust_main->referral_custnum %>">
64 % } elsif ( ! $conf->exists('disable_customer_referrals') ) {
67 <TD ALIGN="right">Referring customer</TD>
69 <!-- <INPUT TYPE="text" NAME="referral_custnum" VALUE=""> -->
70 <% include('/elements/search-cust_main.html',
71 'field_name' => 'referral_custnum',
72 'curr_value' => $cust_main->referral_custnum,
79 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="">
83 % if ( $conf->exists('cust_main-edit_signupdate') ) {
84 <% include('/elements/tr-input-date-field.html', {
85 'name' => 'signupdate',
86 'value' => $cust_main->signupdate,
87 'label' => 'Signup date',
88 'format' => ( $conf->config('date_format') || "%m/%d/%Y" ),
97 my( $cust_main, %opt ) = @_;
99 my $custnum = $opt{'custnum'};
101 my $conf = new FS::Conf;
103 my $curuser = $FS::CurrentUser::CurrentUser;
105 my $r = qq!<font color="#ff0000">*</font> !;