1 files changed, 45 insertions, 1 deletions

diff --git a/perllib/FixMyStreet/Map/Tilma/Original.pm b/perllib/FixMyStreet/Map/Tilma/Original.pm
index 2e460092b..a8c44ccac 100644
--- a/perllib/FixMyStreet/Map/Tilma/Original.pm
+++ b/perllib/FixMyStreet/Map/Tilma/Original.pm
@@ -13,6 +13,7 @@ use LWP::Simple;
 
 use Cobrand;
 use mySociety::Web qw(ent NewURL);
+use mySociety::GeoUtil qw(national_grid_to_wgs84);
 
 sub header_js {
     return '
@@ -22,7 +23,7 @@ sub header_js {
 
 # display_map Q PARAMS
 # PARAMS include:
-# EASTING, NORTHING for the centre point of the map
+# latitude, longitude for the centre point of the map
 # TYPE is 1 if the map is clickable, 2 if clickable and has a form upload,
 #     0 if not clickable
 # PINS is array of pins to show, location and colour
@@ -36,6 +37,21 @@ sub _display_map {
         $mid_point = 189;
     }
 
+    # convert map center point to easting, northing
+    ( $params{easting}, $params{northing} ) =
+      mySociety::GeoUtil::wgs84_to_national_grid(    #
+        $params{latitude}, $params{longitude}, 'G'
+      );
+
+    # FIXME - convert all pins to lat, lng
+    # all the pins are currently [lat, lng, colour] - convert them
+    foreach my $pin ( @{ $params{pins} ||= [] } ) {
+        my ( $e, $n ) = ( $pin->[0], $pin->[1] );
+        my ( $lat, $lon ) =
+          mySociety::GeoUtil::wgs84_to_national_grid( $e, $n, 'G' );
+        ( $pin->[0], $pin->[1] ) = ( $lat, $lon );
+    }
+
     # X/Y tile co-ords may be overridden in the query string
     my @vars = qw(x y);
     my %input = map { $_ => $q->param($_) || '' } @vars;
@@ -196,10 +212,30 @@ sub tile_to_px {
 sub os_to_tile {
     return $_[0] / SCALE_FACTOR;
 }
+
 sub tile_to_os {
     return int($_[0] * SCALE_FACTOR + 0.5);
 }
 
+=head2 tile_xy_to_wgs84
+
+    ($lat, $lon) = tile_xy_to_wgs84( $x, $y );
+
+Takes the tile x,y and converts to lat, lon.
+
+=cut
+
+sub tile_xy_to_wgs84 {
+    my ( $x, $y ) = @_;
+
+    my $easting  = tile_to_os($x);
+    my $northing = tile_to_os($y);
+
+    my ( $lat, $lon ) = national_grid_to_wgs84( $easting, $northing, 'G' );
+    return ( $lat, $lon );
+}
+
+
 sub click_to_tile {
     my ($pin_tile, $pin, $invert) = @_;
     $pin -= TILE_WIDTH while $pin > TILE_WIDTH;
@@ -219,6 +255,14 @@ sub click_to_os {
     return ($easting, $northing);
 }
 
+# Given some click co-ords (the tile they were on, and where in the
+# 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' );
+    return ( $lat, $lon );
+}
+
 # Given (E,N) and potential override (X,Y), return the X/Y tile for the centre
 # of the map (either to get the point near the middle, or the override X,Y),
 # and the pixel co-ords of the point, relative to that map.