<%
-# $Id: cust_main.cgi,v 1.3 2001-08-13 23:10:34 ivan Exp $
+# $Id: cust_main.cgi,v 1.4 2001-09-04 15:06:03 ivan Exp $
use strict;
use vars qw( $cgi $payby @invoicing_list $new $custnum $error );
$cgi->param('country', $4);
$cgi->param('ship_state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/
+ or $cgi->param('ship_state') =~ /^(((())))$/
or die "Oops, illegal \"ship_state\" param: ". $cgi->param('ship_state');
$cgi->param('ship_state', $1);
$cgi->param('ship_county', $3 || '');