diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2012-12-04 16:10:44 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2012-12-04 16:10:44 +0000 |
| commit | 93e01b6bf2017f308b85301016f16d7e3619b314 (patch) | |
| tree | 931c9168347b4fe5e33374cf3de31604b40061a5 /perllib/FixMyStreet/Geocode/Google.pm | |
| parent | 429f5b61f56519914dd38c0e62d0709d4d380dee (diff) | |
Add Zurich geocoder (and allow geocoder choice to be picked in config).
Diffstat (limited to 'perllib/FixMyStreet/Geocode/Google.pm')
| -rw-r--r-- | perllib/FixMyStreet/Geocode/Google.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Geocode/Google.pm b/perllib/FixMyStreet/Geocode/Google.pm index db3a8ae91..fd65b89b1 100644 --- a/perllib/FixMyStreet/Geocode/Google.pm +++ b/perllib/FixMyStreet/Geocode/Google.pm @@ -14,6 +14,7 @@ use File::Slurp; use File::Path (); use LWP::Simple; use Digest::MD5 qw(md5_hex); +use mySociety::Locale; # string STRING CONTEXT # Looks up on Google Maps API, and caches, a user-inputted location. @@ -21,7 +22,11 @@ use Digest::MD5 qw(md5_hex); # an array of matches if there are more than one. The information in the query # may be used to disambiguate the location in cobranded versions of the site. sub string { - my ( $s, $c, $params ) = @_; + my ( $s, $c ) = @_; + + my $params = $c->cobrand->disambiguate_location($s); + + $s = FixMyStreet::Geocode::escape($s); my $url = 'http://maps.google.com/maps/geo?q=' . $s; $url .= '&ll=' . $params->{centre} if $params->{centre}; |