<%
-# $Id: cust_main.cgi,v 1.3 2001-08-13 23:10:34 ivan Exp $
+# $Id: cust_main.cgi,v 1.5 2001-10-20 12:18:00 ivan Exp $
use strict;
use vars qw( $cgi $payby @invoicing_list $new $custnum $error );
#unmunge stuff
-$cgi->param('tax','') unless defined($cgi->param('tax'));
+$cgi->param('tax','') unless defined $cgi->param('tax');
$cgi->param('refnum', (split(/:/, ($cgi->param('refnum'))[0] ))[0] );
$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 || '');