% if ( $countyflag ) { 

  <% include('/elements/xmlhttp.html',
                'url'  => $p.'misc/counties.cgi',
                'subs' => [ $opt{'prefix'}. 'get_counties' ],
             )
  %>
  
  <SCRIPT TYPE="text/javascript">
  
    function opt(what,value,text) {
      var optionName = new Option(text, value, false, false);
      var length = what.length;
      what.options[length] = optionName;
    }
  
    function <% $opt{'prefix'} %>state_changed(what, callback) {

      state = what.options[what.selectedIndex].value;
      country = what.form.<% $opt{'prefix'} %>country.options[what.form.<% $opt{'prefix'} %>country.selectedIndex].value;
  
      function <% $opt{'prefix'} %>update_counties(counties) {

        // blank the current county list
        for ( var i = what.form.<% $opt{'prefix'} %>county.length; i >= 0; i-- )
            what.form.<% $opt{'prefix'} %>county.options[i] = null;
  
        // add the new counties
        var countiesArray = eval('(' + counties + ')' );
        for ( var s = 0; s < countiesArray.length; s++ ) {
            var countyLabel = countiesArray[s];
            if ( countyLabel == "" )
                countyLabel = '(n/a)';
            opt(what.form.<% $opt{'prefix'} %>county, countiesArray[s], countyLabel);
        }

        var countyFormLabel = document.getElementById('<% $opt{'prefix'} %>countylabel');

        if ( countiesArray.length > 1 ) { 
          what.form.<% $opt{'prefix'} %>county.style.display = '';
          countyFormLabel.style.visibility = 'visible';
        } else {
          what.form.<% $opt{'prefix'} %>county.style.display = 'none';
          countyFormLabel.style.visibility = 'hidden';
        }

        //run the callback
        if ( callback != null ) 
          callback();
      }
  
      // go get the new counties
      <% $opt{'prefix'} %>get_counties( state, country, <% $opt{'prefix'} %>update_counties );
  
    }
  
  </SCRIPT>

  <SELECT NAME="<% $opt{'prefix'} %>county" onChange="<% $opt{'onchange'} %>" <% $opt{'disabled'} %>>

% foreach my $county ( @counties ) {

    <OPTION VALUE="<% $county %>"<% $county eq $opt{'county'} ? ' SELECTED' : '' %>><% $county %>

% } 

  </SELECT>

% } else { 


  <SCRIPT TYPE="text/javascript">
    function <% $opt{'prefix'} %>state_changed(what) {
    }
  </SCRIPT>

  <INPUT TYPE="hidden" NAME="<% $opt{'prefix'} %>county" VALUE="<% $opt{'county'} %>">

% } 

<%init>

my %opt = @_;
foreach my $opt (qw( county state country prefix onchange disabled )) {
  $opt{$_} = '' unless exists($opt{$_}) && defined($opt{$_});
}

my @counties = ();
if ( $countyflag ) {

  @counties = counties( $opt{'state'}, $opt{'country'} );

  # this is very hacky
  unless ( scalar(@counties) > 1 ) {
    if ( $opt{'disabled'} =~ /STYLE=/i ) {
      $opt{'disabled'} =~ s/STYLE="([^"]+)"/STYLE="$1; display:none"/i;
    } else {
      $opt{'disabled'} .= ' STYLE="display:none"';
    }
  }

}

</%init>
<%once>

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];

</%once>