% % %my( $cust_main, $pre, $onchange, $disabled ) = @_; %my $conf = new FS::Conf; % %#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; % %#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 %select_hash = ( % 'county' => $cust_main->get($pre.'county'), % 'state' => $cust_main->get($pre.'state'), % 'country' => $cust_main->get($pre.'country'), % 'prefix' => $pre, % 'onchange' => $onchange, % 'disabled' => $disabled, %); % %my $daytime_label = FS::Msgcat::_gettext('daytime') || 'Day Phone'; %my $night_label = FS::Msgcat::_gettext('night') || 'Night Phone'; % %my $r = qq!* !; % % <% &ntable("#cccccc") %>