<%
-#<!-- $Id: agent_type.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: agent_type.cgi,v 1.3 2001-09-04 15:06:03 ivan Exp $ -->
use strict;
use vars qw( $cgi $agent_type $action $hashref $p $part_pkg );
;
}
-print qq!<BR><INPUT TYPE="submit" VALUE="!,
+print qq!<BR><BR><INPUT TYPE="submit" VALUE="!,
$hashref->{typenum} ? "Apply changes" : "Add agent type",
qq!">!;
<%
-# $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 || '');