From fefc10acccd2b17d398296fea27d5ae65832c4da Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 23 Jan 2007 07:44:57 +0000 Subject: even have 4 digit zips in there eek --- FS/FS/cust_pay_batch.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'FS/FS/cust_pay_batch.pm') 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); -- cgit v1.1