1 files changed, 11 insertions, 25 deletions

diff --git a/perllib/FixMyStreet/Map/Utils.pm b/perllib/FixMyStreet/Map.pm
index c1c366c68..12ecf78fe 100644
--- a/perllib/FixMyStreet/Map/Utils.pm
+++ b/perllib/FixMyStreet/Map.pm
@@ -12,11 +12,22 @@ use strict;
 
 use Problems;
 use Cobrand;
+use mySociety::Config;
 use mySociety::Gaze;
 use mySociety::GeoUtil;
 use mySociety::Locale;
 use mySociety::Web qw(ent NewURL);
 
+# Run on module boot up
+load();
+
+# This is yucky, but no-one's taught me a better way
+sub load {
+    my $type = mySociety::Config::get('MAP_TYPE');
+    my $class = "FixMyStreet::Map::$type";
+    eval "use $class";
+}
+
 sub header {
     my ($q, $type) = @_;
     return '' unless $type;
@@ -69,31 +80,6 @@ sub map_features {
     return ($around_map, $around_map_list, $nearby, $dist);
 }
 
-sub map_pins {
-    my ($q, $x, $y, $sx, $sy, $interval) = @_;
-
-    my $e = FixMyStreet::Map::tile_to_os($x);
-    my $n = FixMyStreet::Map::tile_to_os($y);
-    my ($around_map, $around_map_list, $nearby, $dist) = FixMyStreet::Map::map_features($q, $e, $n, $interval);
-
-    my $pins = '';
-    foreach (@$around_map) {
-        my $px = FixMyStreet::Map::os_to_px($_->{easting}, $sx);
-        my $py = FixMyStreet::Map::os_to_px($_->{northing}, $sy, 1);
-        my $col = $_->{state} eq 'fixed' ? 'green' : 'red';
-        $pins .= FixMyStreet::Map::display_pin($q, $px, $py, $col);
-    }
-
-    foreach (@$nearby) {
-        my $px = FixMyStreet::Map::os_to_px($_->{easting}, $sx);
-        my $py = FixMyStreet::Map::os_to_px($_->{northing}, $sy, 1);
-        my $col = $_->{state} eq 'fixed' ? 'green' : 'red';
-        $pins .= FixMyStreet::Map::display_pin($q, $px, $py, $col);
-    }
-
-    return ($pins, $around_map_list, $nearby, $dist);
-}
-
 sub compass ($$$) {
     my ($q, $x, $y) = @_;
     my @compass;