-<%
-
- 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';
-
+%
+%
+% 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' ],
+ )