aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Map/FMS.pm
diff options
context:
space:
mode:
authorMatthew Somerville <matthew@mysociety.org>2012-05-24 15:02:46 +0100
committerMatthew Somerville <matthew@mysociety.org>2012-05-24 15:16:00 +0100
commit16587ab94c0c09882ffb52edd73b45db8b7c98cf (patch)
tree3e4a13bc3e5ec3b7eafc53c1160b9748c2de793b /perllib/FixMyStreet/Map/FMS.pm
parent65820a534a42852d0d9a1819649f48a54b37c22f (diff)
Multiple domains for Bromley tiles.
Diffstat (limited to 'perllib/FixMyStreet/Map/FMS.pm')
-rw-r--r--perllib/FixMyStreet/Map/FMS.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perllib/FixMyStreet/Map/FMS.pm b/perllib/FixMyStreet/Map/FMS.pm
index 4d0af983b..b1dd29002 100644
--- a/perllib/FixMyStreet/Map/FMS.pm
+++ b/perllib/FixMyStreet/Map/FMS.pm
@@ -38,17 +38,17 @@ sub get_quadkey {
}
sub map_tile_base {
- "http://%stilma.mysociety.org/sv/%d/%d/%d.png";
+ '.', "http://%stilma.mysociety.org/sv/%d/%d/%d.png";
}
sub map_tiles {
my ($self, $x, $y, $z) = @_;
if ($z >= 16) {
- my $tile_base = $self->map_tile_base;
+ my ($tile_sep, $tile_base) = $self->map_tile_base;
return [
- sprintf($tile_base, 'a.', $z, $x-1, $y-1),
- sprintf($tile_base, 'b.', $z, $x, $y-1),
- sprintf($tile_base, 'c.', $z, $x-1, $y),
+ sprintf($tile_base, 'a' . $tile_sep, $z, $x-1, $y-1),
+ sprintf($tile_base, 'b' . $tile_sep, $z, $x, $y-1),
+ sprintf($tile_base, 'c' . $tile_sep, $z, $x-1, $y),
sprintf($tile_base, '', $z, $x, $y),
];
} else {