diff options
| author | ivan <ivan> | 2007-01-23 07:44:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-01-23 07:44:57 +0000 |
| commit | fefc10acccd2b17d398296fea27d5ae65832c4da (patch) | |
| tree | 507ee0c2388d66825f7822fb3b37869530a86680 /FS/FS/cust_pay_batch.pm | |
| parent | ef784d82deb3713d9fec132f9c9cc1ea5596da4f (diff) | |
even have 4 digit zips in there eek
Diffstat (limited to 'FS/FS/cust_pay_batch.pm')
| -rw-r--r-- | FS/FS/cust_pay_batch.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_pay_batch.pm b/FS/FS/cust_pay_batch.pm index 6e261c6..f800a18 100644 --- a/FS/FS/cust_pay_batch.pm +++ b/FS/FS/cust_pay_batch.pm @@ -175,7 +175,7 @@ sub check { } #we have lots of old zips in there... don't hork up batch results cause of em - $self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/ + $self->zip =~ /^\s*(\w[\w\-\s]{2,8}\w)\s*$/ or return "Illegal zip: ". $self->zip; $self->zip($1); |