<% my %opt = @_; foreach my $opt (qw( county state country prefix onchange disabled )) { $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_}); } my $sql = "SELECT COUNT(*) FROM cust_main_county". " WHERE county IS NOT NULL AND county != ''"; my $sth = dbh->prepare($sql) or die dbh->errstr; $sth->execute or die $sth->errstr; my $countyflag = $sth->fetchrow_arrayref->[0]; %> <% if ( $countyflag ) { %> <%= include('/elements/xmlhttp.html', 'url' => $p.'misc/counties.cgi', 'subs' => [ $opt{'prefix'}. 'get_counties' ], ) %> > <% foreach my $county ( sort map { $_->county } qsearch('cust_main_county', { 'state' => $opt{'state'}, 'country' => $opt{'country'}, } ) ) { %> ><%= $county %> <% } %> <% } else { %> <% } %>