diff options
| author | ivan <ivan> | 2002-02-22 23:08:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-02-22 23:08:11 +0000 |
| commit | f96fd39dcc9c2563f8ba2976f7b9d23c0b3fcc29 (patch) | |
| tree | 1e9196fb868dcd16fdef0303f2d582122de22a97 | |
| parent | 55e8ec50af441be65887fae5ffb866941620fe54 (diff) | |
fix i18n zip
| -rw-r--r-- | FS/FS/cust_pay_batch.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index dfafb0a13..c4427c387 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -173,13 +173,16 @@ sub check { $self->payname($1); } - $self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/ - or return "Illegal zip: ". $self->zip; - $self->zip($1); + #$self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/ + # or return "Illegal zip: ". $self->zip; + #$self->zip($1); $self->country =~ /^(\w\w)$/ or return "Illegal country: ". $self->country; $self->country($1); + $error = $self->ut_zip('zip', $self->country); + return $error if $error; + #check invnum, custnum, ? ''; #no error @@ -189,7 +192,7 @@ sub check { =head1 VERSION -$Id: cust_pay_batch.pm,v 1.5 2002-02-14 01:12:19 ivan Exp $ +$Id: cust_pay_batch.pm,v 1.6 2002-02-22 23:08:11 ivan Exp $ =head1 BUGS |