<% 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({ % 'select' => 'country', % 'table' => 'cust_main_county', % 'hashref' => {}, % 'extra_sql' => 'GROUP BY country', % }) % ) { ><% code2country($country). " ($country)" %> % } <%init> 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';