<% $cgi->redirect(popurl(3). "browse/cust_main_county.cgi?".
                             "country=". uri_escape($cgi->param('country')).";".
                             'state='.   uri_escape($cgi->param('state')).  ';'.
                             'county='.  uri_escape($cgi->param('county'))
                 )
%>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');

$cgi->param('taxnum') =~ /^(\d+)$/ or die "Illegal taxnum!";
my $taxnum = $1;
my $cust_main_county = qsearchs('cust_main_county', { 'taxnum' => $taxnum } )
  or die "Unknown taxnum $taxnum";

#really should do this in a .pm & start transaction

my %search = (
               'country' => $cust_main_county->country,
               'state'   => $cust_main_county->state,
             );

$search{'county'} = $cust_main_county->county
  if $cust_main_county->city;

my $error = $cust_main_county->delete;
die $error if $error;

unless ( qsearch('cust_main_county', \%search) ) {

  #if we're the last, clear our (state?)/county/city and reinsert

  $cust_main_county->taxnum('');
  if ( $cust_main_county->city ) {
    $cust_main_county->city('');
  } elsif ( $cust_main_county->county ) {
    $cust_main_county->county('');
  } else {
    die "can't remove that";
  }

  my $error = $cust_main_county->insert;
  die $error if $error;

}

</%init>