diff options
author | Edmund von der Burg <evdb@mysociety.org> | 2011-02-22 14:25:17 +0000 |
---|---|---|
committer | Edmund von der Burg <evdb@mysociety.org> | 2011-02-22 14:25:17 +0000 |
commit | 7da8f20c36726fd205ae48130f07db49fab745e0 (patch) | |
tree | 9573ce8c11fd8a067ad74a1aedb452784654b076 /perllib/FixMyStreet/Map/Tilma/Original.pm | |
parent | 36e118f44144e24e6f1a98ea845b4cc2fed799d8 (diff) | |
parent | a88db262384d3800c36589bb6d1a933b9319e2df (diff) |
Merge branch 'master' into migrate_to_catalyst
Diffstat (limited to 'perllib/FixMyStreet/Map/Tilma/Original.pm')
-rw-r--r-- | perllib/FixMyStreet/Map/Tilma/Original.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Map/Tilma/Original.pm b/perllib/FixMyStreet/Map/Tilma/Original.pm index 81b123b30..b6d24fd6a 100644 --- a/perllib/FixMyStreet/Map/Tilma/Original.pm +++ b/perllib/FixMyStreet/Map/Tilma/Original.pm @@ -12,13 +12,14 @@ 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 Utils::convert_latlon_to_en( $lat, $lon ); } sub header_js { @@ -268,7 +269,7 @@ sub click_to_os { # tile they were), convert to WGS84 and return. sub click_to_wgs84 { my ( $easting, $northing ) = FixMyStreet::Map::click_to_os(@_); - my ( $lat, $lon ) = national_grid_to_wgs84( $easting, $northing, 'G' ); + my ( $lat, $lon ) = mySociety::GeoUtil::national_grid_to_wgs84( $easting, $northing, 'G' ); return ( $lat, $lon ); } |