projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debug
[freeside.git]
/
FS
/
FS
/
Misc
/
Geo.pm
diff --git
a/FS/FS/Misc/Geo.pm
b/FS/FS/Misc/Geo.pm
index
009621b
..
168e4e9
100644
(file)
--- a/
FS/FS/Misc/Geo.pm
+++ b/
FS/FS/Misc/Geo.pm
@@
-6,6
+6,7
@@
use vars qw( $DEBUG @EXPORT_OK $conf );
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw( GET POST );
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw( GET POST );
+use HTML::TokeParser;
use JSON;
use URI::Escape 3.31;
use Data::Dumper;
use JSON;
use URI::Escape 3.31;
use Data::Dumper;
@@
-333,8
+334,12
@@
sub standardize_uscensus {
censustract => $result->censustract,
};
} else {
censustract => $result->censustract,
};
} else {
- die "
can't parse address '".$result->address."'
";
+ die "
Geocoding returned '".$result->address."', which does not seem to be a valid address.\n
";
}
}
+ } elsif ( $result->match_level eq 'Tie' ) {
+ die "Geocoding was not able to identify a unique matching address.\n";
+ } elsif ( $result->match_level ) {
+ die "Geocoding did not find a matching address.\n";
} else {
warn Dumper($result) if $DEBUG;
die $result->error_message;
} else {
warn Dumper($result) if $DEBUG;
die $result->error_message;