From 7cf46ee96e224095a7f2adb925f2b4ff16eb63e7 Mon Sep 17 00:00:00 2001
From: Edmund von der Burg <evdb@ecclestoad.co.uk>
Date: Tue, 8 Feb 2011 11:14:26 -0300
Subject: convert various map functions

---
 perllib/Problems.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perllib/Problems.pm')

diff --git a/perllib/Problems.pm b/perllib/Problems.pm
index 7a4c4974e..8a142a0a3 100644
--- a/perllib/Problems.pm
+++ b/perllib/Problems.pm
@@ -170,21 +170,21 @@ sub front_stats {
 # Problems around a location
 
 sub around_map {
-    my ($min_e, $max_e, $min_n, $max_n, $interval, $limit) = @_;
+    my ($min_lat, $max_lat, $min_lon, $max_lon, $interval, $limit) = @_;
     my $limit_clause = '';
     if ($limit) {
         $limit_clause = " limit $limit";
     }
     mySociety::Locale::in_gb_locale { select_all(
-        "select id,title,easting,northing,state,
+        "select id,title,latitude,longitude,state,
              extract(epoch from confirmed) as time
         from problem
         where state in ('confirmed', 'fixed')
-            and easting>=? and easting<? and northing>=? and northing<? " .
+            and latitude>=? and latitude<? and longitude>=? and longitude<? " .
         ($interval ? " and ms_current_timestamp()-lastupdate < '$interval'::interval" : '') .
         " $site_restriction
         order by created desc
-        $limit_clause", $min_e, $max_e, $min_n, $max_n);
+        $limit_clause", $min_lat, $max_lat, $min_lon, $max_lon);
     };
 }
 
-- 
cgit v1.2.3