% &ntable("#cccccc") %>
%# tags
<% include('/elements/tr-select-cust_tag.html',
'custnum' => $custnum,
'cgi' => $cgi,
)
%>
%# agent
% if ( $cgi->param('lock_agentnum') =~ /^(\d+)$/ && $curuser->agentnum($1) ) {
%
% my $agentnum = $1;
% $cust_main->agentnum($agentnum);
Agent |
<% $cust_main->agent->agent |h %> |
% } else {
<% include('/elements/tr-select-agent.html',
'curr_value' => $cust_main->agentnum,
'label' => "${r}Agent",
'empty_label' => 'Select agent',
'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ),
'viewall_right' => 'None', #override default 'View customers of all agents'
)
%>
% }
%# agent_custid
% if ( $conf->exists('cust_main-edit_agent_custid') ) {
Customer identifier |
|
% } else {
% }
%# class
<% include('/elements/tr-select-cust_class.html',
'curr_value' => $cust_main->classnum,
'label' => "Class",
#'empty_label' => '(none)',
#'disable_empty' =>
)
%>
%# referral (advertising source)
%my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
%if ( $custnum && ! $conf->exists('editreferrals') ) {
% } else {
<% include('/elements/tr-select-part_referral.html',
'curr_value' => $refnum
)
%>
% }
%# referring customer
%my $referring_cust_main = '';
%if ( $cust_main->referral_custnum
% and $referring_cust_main =
% qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
% and ! $curuser->access_right('Edit referring customer')
%) {
Referring customer |
<% $cust_main->referral_custnum %>: <% $referring_cust_main->name %>
|
% } elsif ( ! $conf->exists('disable_customer_referrals') ) {
Referring customer |
<% include('/elements/search-cust_main.html',
'field_name' => 'referral_custnum',
'curr_value' => $cust_main->referral_custnum,
)
%>
|
% } else {
% }
%# signup date
% if ( $conf->exists('cust_main-edit_signupdate') ) {
<% include('/elements/tr-input-date-field.html', {
'name' => 'signupdate',
'value' => $cust_main->signupdate,
'label' => 'Signup date',
'format' => ( $conf->config('date_format') || "%m/%d/%Y" ),
})
%>
% }
<%init>
my( $cust_main, %opt ) = @_;
my $custnum = $opt{'custnum'};
my $conf = new FS::Conf;
my $curuser = $FS::CurrentUser::CurrentUser;
my $r = qq!* !;
%init>