<% my %opt = @_; foreach my $opt (qw( county state country prefix onchange disabled )) { $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_}); } my $conf = new FS::Conf; my $countrydefault = $conf->config('countrydefault') || 'US'; %> <%= include('/elements/xmlhttp.html', 'url' => $p.'misc/states.cgi', 'subs' => [ $opt{'prefix'}. 'get_states' ], ) %> > <% foreach my $country ( sort { ($b eq $countrydefault) <=> ($a eq $countrydefault) or code2country($a) cmp code2country($b) } map { $_->country } qsearch( 'cust_main_county',{}, 'DISTINCT ON ( country ) *', ) ) { %> ><%= code2country($country). " ($country)" %> <% } %>