projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ea6ab9c
)
fix geocode guessing w/a 5 digit zip, RT#13595
author
ivan
<ivan>
Tue, 19 Jul 2011 21:27:06 +0000
(21:27 +0000)
committer
ivan
<ivan>
Tue, 19 Jul 2011 21:27:06 +0000
(21:27 +0000)
FS/FS/geocode_Mixin.pm
patch
|
blob
|
history
diff --git
a/FS/FS/geocode_Mixin.pm
b/FS/FS/geocode_Mixin.pm
index
4f8d1e8
..
c1b9f86
100644
(file)
--- a/
FS/FS/geocode_Mixin.pm
+++ b/
FS/FS/geocode_Mixin.pm
@@
-155,7
+155,8
@@
sub geocode {
$zip ||= '';
$plus4 ||= '';
#CCH specific location stuff
$zip ||= '';
$plus4 ||= '';
#CCH specific location stuff
- my $extra_sql = "AND plus4lo <= '$plus4' AND plus4hi >= '$plus4'";
+ my $extra_sql = $plus4 ? "AND plus4lo <= '$plus4' AND plus4hi >= '$plus4'"
+ : '';
my @cust_tax_location =
qsearch( {
my @cust_tax_location =
qsearch( {
@@
-168,6
+169,11
@@
sub geocode {
$geocode = $cust_tax_location[0]->geocode
if scalar(@cust_tax_location);
$geocode = $cust_tax_location[0]->geocode
if scalar(@cust_tax_location);
+ warn "WARNING: customer ". $self->custnum.
+ ": multiple locations for zip ". $self->get("${prefix}zip").
+ "; using arbitrary geocode $geocode\n"
+ if scalar(@cust_tax_location) > 1;
+
$geocode;
}
$geocode;
}