diff options
| -rw-r--r-- | perllib/FixMyStreet/Geocode/OSM.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Geocode/OSM.pm b/perllib/FixMyStreet/Geocode/OSM.pm index 20d2fe896..97eeaf4b7 100644 --- a/perllib/FixMyStreet/Geocode/OSM.pm +++ b/perllib/FixMyStreet/Geocode/OSM.pm @@ -10,6 +10,7 @@ package FixMyStreet::Geocode::OSM; use warnings; use strict; +use Data::Dumper; use Digest::MD5 qw(md5_hex); use Encode; @@ -75,6 +76,7 @@ sub string { next unless $_->{type} eq "town" || $_->{type} eq "locality" || $_->{type} eq "suburb" || + $_->{type} eq "city" || $_->{type} eq "village" || $_->{type} eq "hamlet" || $_->{type} eq "secondary" || @@ -86,8 +88,9 @@ sub string { $address = $_->{address}->{locality}.", ".$_->{address}->{administrative} if $_->{type} eq "locality"; $address = $_->{address}->{suburb}.", ".$_->{address}->{administrative} if $_->{type} eq "suburb"; $address = $_->{address}->{town}.", ".$_->{address}->{state} if $_->{type} eq "town"; + $address = $_->{address}->{administrative}.", ".$_->{address}->{state} if $_->{type} eq "city"; $address = $_->{address}->{village}.", ".$_->{address}->{administrative} if $_->{type} eq "village"; - $address = $_->{address}->{hamlet}.", ".$_->{address}->{administrative} if $_->{type} eq "hamlet"; + $address = $_->{address}->{hamlet}.", ".$_->{address}->{state} if $_->{type} eq "hamlet"; # address => ($_->{address}->{postcode})? #($_->{address}->{road}.", ".$_->{address}->{postcode}." ".$_->{address}->{administrative}):($_->{address}->{road}.", ".$_->{address}->{administrative}) , @@ -106,7 +109,9 @@ sub string { my %seen; my @final_valid_locations = grep { $seen{$_->{address}}++ } @{$error}; - +open(OUT, '>', '/tmp/moo'); +print OUT Dumper @valid_locations; +close OUT; return { latitude => $latitude, longitude => $longitude } if scalar @valid_locations == 1 or scalar keys %seen == 1; return { error => _('Sorry, we could not find that location.') } if scalar keys %seen == 0; return { error => $error }; |