diff options
| author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-11 10:43:35 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-11 10:43:35 +0000 |
| commit | c8a9805bcb850cab7bf1c1b8c34ef5c4f22e1b73 (patch) | |
| tree | 9d021c40c9b8927bbc2c237eda0cdd767cbf99de /perllib/FixMyStreet/Geocode.pm | |
| parent | c7662afda971a9d285f70ff625dcd0b170b836e3 (diff) | |
More EN locales.
Diffstat (limited to 'perllib/FixMyStreet/Geocode.pm')
| -rw-r--r-- | perllib/FixMyStreet/Geocode.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Geocode.pm b/perllib/FixMyStreet/Geocode.pm index 355cd827f..9ab958cd9 100644 --- a/perllib/FixMyStreet/Geocode.pm +++ b/perllib/FixMyStreet/Geocode.pm @@ -20,6 +20,7 @@ use Cobrand; use Page; use mySociety::Config; use mySociety::GeoUtil; +use mySociety::Locale; use mySociety::MaPit; use mySociety::PostcodeUtil; use mySociety::Web qw(NewURL); @@ -62,7 +63,9 @@ sub geocoded_string_coordinates { $longitude = $1; $latitude = $2; try { - my ($easting, $northing) = mySociety::GeoUtil::wgs84_to_national_grid($latitude, $longitude, 'G'); + my ($easting, $northing) = mySociety::Locale::in_gb_locale { + mySociety::GeoUtil::wgs84_to_national_grid($latitude, $longitude, 'G'); + }; } catch Error::Simple with { $error = shift; $error = _('That location does not appear to be in Britain; please try again.') |