% foreach my $field ($cust_main->virtual_fields) { <% $cust_main->pvf($field)->widget('HTML', 'edit',$cust_main->getfield($field)) %> % } %# tags <& /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); % } else { <& /elements/tr-select-agent.html, 'curr_value' => $cust_main->agentnum, 'label' => $r. emt('Agent'), 'empty_label' => emt('Select agent'), 'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ), 'viewall_right' => emt('None'), 'onchange' => 'agent_changed(this)', &> % } %# agent_custid % if ( $conf->exists('cust_main-edit_agent_custid') ) { % } else { % } %# class <& /elements/tr-select-cust_class.html, 'curr_value' => $cust_main->classnum, 'label' => emt("Class"), &> %# tax status <& /elements/tr-select-tax_status.html, 'curr_value' => $cust_main->taxstatusnum, 'disable_empty' => 0, 'empty_label' => ' ', &> %#sales person <& /elements/tr-select-sales.html, 'curr_value' => $cust_main->salesnum, 'th' => 1, &> %# referral (advertising source) %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0; %if ( $custnum && ! $conf->exists('editreferrals') ) { % } else { <& /elements/tr-select-part_referral.html, 'curr_value' => $refnum, 'label' => $r. emt('Advertising source'), &> % } %# 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') %) { % } elsif ( ! $conf->exists('disable_customer_referrals') ) { % } else { % } %# signup date % if ( $conf->exists('cust_main-edit_signupdate') ) { <& /elements/tr-input-date-field.html, { 'name' => 'signupdate', 'value' => $cust_main->signupdate, 'label' => emt('Signup date'), 'format' => ( $conf->config('date_format') || "%m/%d/%Y" ), } &> % } % # permission to edit ticket subjects % if ( $conf->exists('ticket_system-selfservice_edit_subject') ) { % } else { % } % # permission to edit % if ( $conf->exists('cust_main-edit_calling_list_exempt') ) { % } else { % }
Residential residential_commercial eq 'Commercial' ? '' : 'CHECKED' %> >
Commercial residential_commercial eq 'Commercial' ? 'CHECKED' : '' %> >
<% mt('Agent') |h %> <% $cust_main->agent->agent |h %>
<% mt('Customer identifier') |h %>
<% mt('Referring customer') |h %> <% $cust_main->referral_custnum %>: <% $referring_cust_main->name |h %>
<% mt('Referring customer') |h %> <& /elements/search-cust_main.html, 'field_name' => 'referral_custnum', 'curr_value' => $cust_main->referral_custnum, &>
edit_subject ? 'CHECKED' : '' %>> <% mt('Can edit ticket subjects') |h %>
calling_list_exempt ? 'CHECKED' : '' %>> <% mt('Calling list exempt') |h %>
<%init> my( $cust_main, %opt ) = @_; my $custnum = $opt{'custnum'}; my $conf = new FS::Conf; if ( $cgi->param('error') ) { $cust_main->set('residential_commercial', ($cgi->param('residential_commercial') eq 'Commercial') ? 'Commercial' : 'Residential' ); } elsif ( $custnum ) { #editing $cust_main->set('residential_commercial', length($cust_main->company) ? 'Commercial' : 'Residential' ); } else { #new customer $cust_main->set('residential_commercial', $conf->exists('cust_main-default_commercial') ? 'Commercial' : 'Residential' ); } my $curuser = $FS::CurrentUser::CurrentUser; my $r = qq!* !; # which agents lock the service address, if any my %ship_locked_agents; foreach (qsearch('agent',{})) { my $agentnum = $_->agentnum; next unless $conf->exists('agent-ship_address', $_->agentnum); my $cust_main = $_->agent_cust_main or next; my $agent_ship_location = $cust_main->ship_location; $ship_locked_agents{$agentnum} = +{ map { $_ => $agent_ship_location->$_ } ( qw(locationname address1 state zip country latitude longitude district), ($conf->exists('cust_main-no_city_in_address') ? () : 'city') ) }; }