projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9a692cc
)
fix zip parsing for batch results - don't want to abort processing because of an...
author
ivan
<ivan>
Thu, 18 Jan 2007 18:14:05 +0000
(18:14 +0000)
committer
ivan
<ivan>
Thu, 18 Jan 2007 18:14:05 +0000
(18:14 +0000)
FS/FS/cust_pay_batch.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pay_batch.pm
b/FS/FS/cust_pay_batch.pm
index
de87ef1
..
6e261c6
100644
(file)
--- a/
FS/FS/cust_pay_batch.pm
+++ b/
FS/FS/cust_pay_batch.pm
@@
-174,15
+174,16
@@
sub check {
$self->payname($1);
}
$self->payname($1);
}
- #$self->zip =~ /^\s*(\w[\w\-\s]{3,8}\w)\s*$/
- # or return "Illegal zip: ". $self->zip;
- #$self->zip($1);
+ #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*$/
+ or return "Illegal zip: ". $self->zip;
+ $self->zip($1);
$self->country =~ /^(\w\w)$/ or return "Illegal country: ". $self->country;
$self->country($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;
+
#
$error = $self->ut_zip('zip', $self->country);
+
#
return $error if $error;
#check invnum, custnum, ?
#check invnum, custnum, ?