diff options
author | Struan Donald <struan@exo.org.uk> | 2012-05-11 13:20:26 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2012-05-11 13:20:26 +0100 |
commit | 2b93b526a5e8acf48e4ee112e2f5feb8436be1d2 (patch) | |
tree | ec10fdced7c8748684f3cd16a07f6eb23e324b11 /perllib/FixMyStreet/Map/FMS.pm | |
parent | 5accaad402d24f37851d8b85084fda2859b1ae16 (diff) | |
parent | beca2f7f8c96260541387d7135235f72ac86565b (diff) |
Merge remote-tracking branch 'origin/bromley' into bromley
Diffstat (limited to 'perllib/FixMyStreet/Map/FMS.pm')
-rw-r--r-- | perllib/FixMyStreet/Map/FMS.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/perllib/FixMyStreet/Map/FMS.pm b/perllib/FixMyStreet/Map/FMS.pm index 24842c861..0ea4af4c1 100644 --- a/perllib/FixMyStreet/Map/FMS.pm +++ b/perllib/FixMyStreet/Map/FMS.pm @@ -37,14 +37,19 @@ sub get_quadkey { return $key; } +sub map_tile_base { + "tilma.mysociety.org/sv"; +} + sub map_tiles { my ($self, $x, $y, $z) = @_; if ($z >= 16) { + my $tile_base = $self->map_tile_base; return [ - "http://a.tilma.mysociety.org/sv/$z/" . ($x-1) . "/" . ($y-1) . ".png", - "http://b.tilma.mysociety.org/sv/$z/$x/" . ($y-1) . ".png", - "http://c.tilma.mysociety.org/sv/$z/" . ($x-1) . "/$y.png", - "http://tilma.mysociety.org/sv/$z/$x/$y.png", + "http://a.$tile_base/$z/" . ($x-1) . "/" . ($y-1) . ".png", + "http://b.$tile_base/$z/$x/" . ($y-1) . ".png", + "http://c.$tile_base/$z/" . ($x-1) . "/$y.png", + "http://$tile_base/$z/$x/$y.png", ]; } else { my $url = "g=701"; |