diff options
| author | ivan <ivan> | 1999-02-28 20:09:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-02-28 20:09:03 +0000 |
| commit | 220ac1e017ab668f9fac1e5ff0ca648f8fdfe913 (patch) | |
| tree | 8e4c452153ead5bd3eeda9b2dfdb53183e8f3aee /site_perl | |
| parent | b295ca59242c863db3f6f79295625392680e144b (diff) | |
allow spaces in zip codes, for (at least) canada. pointed out by
Clayton Gray <clgray@bcgroup.net>
Diffstat (limited to 'site_perl')
| -rw-r--r-- | site_perl/cust_main.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/site_perl/cust_main.pm b/site_perl/cust_main.pm index ad2ff0264..2002f7a59 100644 --- a/site_perl/cust_main.pm +++ b/site_perl/cust_main.pm @@ -258,7 +258,7 @@ sub check { } ); } - $self->zip =~ /^([\w\-]{5,10})$/ or return "Illegal zip"; + $self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/ or return "Illegal zip"; $self->zip($1); $self->payby =~ /^(CARD|BILL|COMP)$/ or return "Illegal payby"; @@ -863,7 +863,7 @@ sub check_invoicing_list { =head1 VERSION -$Id: cust_main.pm,v 1.12 1999-02-27 21:24:22 ivan Exp $ +$Id: cust_main.pm,v 1.13 1999-02-28 20:09:03 ivan Exp $ =head1 BUGS @@ -919,7 +919,11 @@ enable cybercash, cybercash v3 support, don't need to import FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21 $Log: cust_main.pm,v $ -Revision 1.12 1999-02-27 21:24:22 ivan +Revision 1.13 1999-02-28 20:09:03 ivan +allow spaces in zip codes, for (at least) canada. pointed out by +Clayton Gray <clgray@bcgroup.net> + +Revision 1.12 1999/02/27 21:24:22 ivan parse paydate correctly for cybercash Revision 1.11 1999/02/23 08:09:27 ivan |