diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2012-07-13 15:12:06 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2012-07-13 15:12:30 +0100 |
| commit | 0000afc1f4b28c96365981fc24437a6983ee7ea2 (patch) | |
| tree | 4655b42784f1906b60acd8bce3af6c8d68febc42 /perllib/FixMyStreet/Geocode/Google.pm | |
| parent | dbeb763d227b011b42ccd44a8cb72a01dcea24ca (diff) | |
Add Nominatim-based geocoding service (fixes #183).
Diffstat (limited to 'perllib/FixMyStreet/Geocode/Google.pm')
| -rw-r--r-- | perllib/FixMyStreet/Geocode/Google.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/Geocode/Google.pm b/perllib/FixMyStreet/Geocode/Google.pm index 1ab347066..0d568f8f1 100644 --- a/perllib/FixMyStreet/Geocode/Google.pm +++ b/perllib/FixMyStreet/Geocode/Google.pm @@ -24,10 +24,14 @@ sub string { my ( $s, $c, $params ) = @_; my $url = 'http://maps.google.com/maps/geo?q=' . $s; - $url .= '&ll=' . $params->{centre} if $params->{centre}; - $url .= '&spn=' . $params->{span} if $params->{span}; - $url .= '&gl=' . $params->{country} if $params->{country}; - $url .= '&hl=' . $params->{lang} if $params->{lang}; + $url .= '&ll=' . $params->{centre} if $params->{centre}; + $url .= '&spn=' . $params->{span} if $params->{span}; + if ($params->{google_country}) { + $url .= '&gl=' . $params->{google_country}; + } elsif ($params->{country}) { + $url .= '&gl=' . $params->{country}; + } + $url .= '&hl=' . $params->{lang} if $params->{lang}; my $cache_dir = FixMyStreet->config('GEO_CACHE') . 'google/'; my $cache_file = $cache_dir . md5_hex($url); |