<% &ntable("#cccccc") %> <%$r%>Contact name
(last, first) <%$style%>> , <%$style%>> % if ( $conf->exists('show_ss') && !$pre ) { SS# % } elsif ( !$pre ) { % } Company <%$style%>> <% include('/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%>> Fax <%$style%>> % if ( $conf->exists('show_stateid') && !$pre ) { <% $stateid_label %> <%$style%>> <% $stateid_state_label %> <% include('/elements/select-state.html', 'state' => $cust_main->stateid_state, 'country' => $cust_main->country, 'prefix' => 'stateid_', 'onchange' => $onchange, 'disabled' => $disabled, 'style' => \@style, ) %> % } elsif ( !$pre ) { % } <%$r%>required fields
<%init> #my( $cust_main, $pre, $onchange, $disabled, %opt ) = @_; 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'} } : () ); #push @style, 'background-color: #dddddd' if $disabled; 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($county_html, $state_html, $country_html) = # FS::cust_main_county::regionselector( $cust_main->get($pre.'county'), # $cust_main->get($pre.'state'), # $cust_main->get($pre.'country'), # $pre, # $onchange, # $disabled, # ); 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 $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!* !;