projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1e4aa80
)
oops indeed
author
ivan
<ivan>
Tue, 4 Sep 2001 15:06:03 +0000
(15:06 +0000)
committer
ivan
<ivan>
Tue, 4 Sep 2001 15:06:03 +0000
(15:06 +0000)
httemplate/edit/agent_type.cgi
patch
|
blob
|
history
httemplate/edit/process/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/agent_type.cgi
b/httemplate/edit/agent_type.cgi
index
4f1ad8b
..
ac41eec
100755
(executable)
--- a/
httemplate/edit/agent_type.cgi
+++ b/
httemplate/edit/agent_type.cgi
@@
-1,5
+1,5
@@
<%
<%
-#<!-- $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 );
use strict;
use vars qw( $cgi $agent_type $action $hashref $p $part_pkg );
@@
-66,7
+66,7
@@
foreach $part_pkg ( qsearch('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!">!;
$hashref->{typenum} ? "Apply changes" : "Add agent type",
qq!">!;
diff --git
a/httemplate/edit/process/cust_main.cgi
b/httemplate/edit/process/cust_main.cgi
index
86e6abe
..
cc5efd6
100755
(executable)
--- a/
httemplate/edit/process/cust_main.cgi
+++ b/
httemplate/edit/process/cust_main.cgi
@@
-1,5
+1,5
@@
<%
<%
-# $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 );
use strict;
use vars qw( $cgi $payby @invoicing_list $new $custnum $error );
@@
-31,6
+31,7
@@
$cgi->param('county', $3 || '');
$cgi->param('country', $4);
$cgi->param('ship_state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/
$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 || '');
or die "Oops, illegal \"ship_state\" param: ". $cgi->param('ship_state');
$cgi->param('ship_state', $1);
$cgi->param('ship_county', $3 || '');