diff options
| author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-11 10:33:45 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-11 10:33:45 +0000 |
| commit | c7662afda971a9d285f70ff625dcd0b170b836e3 (patch) | |
| tree | 59d982bb815a0148d179a1aac96d2aee976e7f21 | |
| parent | 25fd3e77c76490ff09a96b4d18d73dd7efbe7f09 (diff) | |
Do co-ordinate transform in English locale.
| -rw-r--r-- | perllib/FixMyStreet/Map/Tilma/Original.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Map/Tilma/Original.pm b/perllib/FixMyStreet/Map/Tilma/Original.pm index 81b123b30..4dc4a5817 100644 --- a/perllib/FixMyStreet/Map/Tilma/Original.pm +++ b/perllib/FixMyStreet/Map/Tilma/Original.pm @@ -12,13 +12,16 @@ use strict; use LWP::Simple; use Cobrand; -use mySociety::Web qw(ent NewURL); use mySociety::GeoUtil; +use mySociety::Locale; +use mySociety::Web qw(ent NewURL); use Utils; sub _ll_to_en { my ($lat, $lon) = @_; - return mySociety::GeoUtil::wgs84_to_national_grid( $lat, $lon, 'G' ); + return mySociety::Locale::in_gb_locale { + mySociety::GeoUtil::wgs84_to_national_grid( $lat, $lon, 'G' ); + }; } sub header_js { |