diff options
author | louise <louise> | 2009-12-15 10:51:31 +0000 |
---|---|---|
committer | louise <louise> | 2009-12-15 10:51:31 +0000 |
commit | 49fe0bc65690e0e086b9cd319cd2c8a811646a78 (patch) | |
tree | 6101f78f52d356aef144d0aa3b636f2f0b46583e | |
parent | ab45c9a7f3f85551200d945057b5bf4e9ff2a44d (diff) |
UK suffix for geocoding seems to work more reliably
-rw-r--r-- | perllib/Page.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index aee061ae5..bbdfd740b 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.221 2009-12-15 10:16:17 louise Exp $ +# $Id: Page.pm,v 1.222 2009-12-15 10:51:31 louise Exp $ # package Page; @@ -977,7 +977,7 @@ sub geocode_string { if (-s $cache_file) { $js = File::Slurp::read_file($cache_file); } else { - $url .= ',+United+Kingdom' unless $url =~ /united\++kingdom$/ || $url =~ /uk$/i; + $url .= ',+UK' unless $url =~ /united\++kingdom$/ || $url =~ /uk$/i; $url .= '&sensor=false&gl=uk&key=' . mySociety::Config::get('GOOGLE_MAPS_API_KEY'); $js = LWP::Simple::get($url); File::Slurp::write_file($cache_file, $js) if $js && $js !~ /"code":6[12]0/; |