<% &ntable("#cccccc") %>
| <%$r%><% mt('Contact name (last, first)') |h %> |
<%$style%>> ,
<%$style%>>
|
% if ( $conf->exists('show_ss') && !$pre ) {
<% mt('SS#') |h %> |
|
% } elsif ( !$pre ) {
|
% }
% if ( $conf->exists('cust-email-high-visibility') && !$pre ) {
|
<% $conf->exists('cust_main-require_invoicing_list_email') ? $r : '' %>Email address(es)
|
|
% }
% unless ( $conf->exists('cust-edit-alt-field-order') ) {
| <% mt('Company') |h %> |
<%$style%>>
|
<& /elements/location.html,
'prefix' => $pre,
'object' => $cust_main,
'onchange' => $onchange,
'disabled' => $disabled,
'style' => \@style,
'same_checked' => $opt{'same_checked'},
'geocode' => $opt{'geocode'},
'censustract' => $opt{'censustract'},
&>
| <% $daytime_label %> |
<%$style%>>
|
| <% $night_label %> |
<%$style%>>
|
| <% $mobile_label %> |
<%$style%>>
|
| <% mt('Fax') |h %> |
<%$style%>>
|
% } else {
| <% $daytime_label %> |
<%$style%>>
|
| <% $night_label %> |
<%$style%>>
|
| <% $mobile_label %> |
<%$style%>>
|
<& /elements/location.html,
'prefix' => $pre,
'object' => $cust_main,
'onchange' => $onchange,
'disabled' => $disabled,
'style' => \@style,
'same_checked' => $opt{'same_checked'},
'geocode' => $opt{'geocode'},
'censustract' => $opt{'censustract'},
&>
| <% mt('Fax') |h %> |
<%$style%>>
|
| <% mt('Company') |h %> |
<%$style%>>
|
% }
% if ( $conf->exists('show_stateid') && !$pre ) {
| <% $stateid_label %> |
<%$style%>> |
<% $stateid_state_label %> |
<& /elements/select-state.html,
'state' => $cust_main->stateid_state,
'country' => $cust_main->country,
'prefix' => 'stateid_',
'onchange' => $onchange,
'disabled' => $disabled,
'style' => \@style,
&>
|
% } elsif ( !$pre ) {
|
|
% }
<%$r%><% mt('required fields') |h %>
<%init>
my %opt = @_;
my $cust_main = $opt{'cust_main'};
my $pre = $opt{'pre'};
my $onchange = $opt{'onchange'};
my $disabled = $opt{'disabled'};
my @style = ( $opt{'style'} ? @{ $opt{'style'} } : () );
my $style = scalar(@style) ? 'STYLE="'. join(';', @style). '"' : '';
my $conf = new FS::Conf;
foreach (qw(ss stateid)) {
$opt{$_} = $cust_main->masked($_) unless exists $opt{$_};
}
#false laziness with ship state
my $countrydefault = $conf->config('countrydefault') || 'US';
$cust_main->set($pre.'country', $countrydefault )
unless $cust_main->get($pre.'country');
my $statedefault = $conf->config('statedefault')
|| ($countrydefault eq 'US' ? 'CA' : '');
$cust_main->set($pre.'state', $statedefault )
unless $cust_main->get($pre.'state')
|| $cust_main->get($pre.'country') ne $countrydefault;
$cust_main->set('stateid_state', $cust_main->state )
unless $pre || $cust_main->get('stateid_state');
$opt{geocode} ||= $cust_main->get('geocode');
if ( $conf->exists('cust_main-require_censustract') ) {
$opt{censustract} ||= $cust_main->censustract;
}
my $daytime_label = FS::Msgcat::_gettext('daytime') =~ /^(daytime)?$/
? 'Day Phone'
: FS::Msgcat::_gettext('daytime');
my $night_label = FS::Msgcat::_gettext('night') =~/^(night)?$/
? 'Night Phone'
: FS::Msgcat::_gettext('night') || 'Night Phone';
my $mobile_label = FS::Msgcat::_gettext('mobile') =~/^(mobile)?$/
? 'Mobile Phone'
: FS::Msgcat::_gettext('mobile') || 'Mobile Phone';
my $stateid_label = FS::Msgcat::_gettext('stateid') =~ /^(stateid)?$/
? 'Driver’s License'
: FS::Msgcat::_gettext('stateid') || 'Driver’s License';
my $stateid_state_label = FS::Msgcat::_gettext('stateid_state') =~ /^(stateid_state)?$/
? 'Driver’s License State'
: FS::Msgcat::_gettext('stateid_state') || 'Driver’s License State';
my $r = qq!* !;
my @invoicing_list = $cust_main->invoicing_list;