diff options
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Barnet.pm | 4 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Default.pm | 10 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Map/Tilma/Original.pm | 2 |
3 files changed, 15 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Barnet.pm b/perllib/FixMyStreet/Cobrand/Barnet.pm index eacb4ef70..2081565cf 100644 --- a/perllib/FixMyStreet/Cobrand/Barnet.pm +++ b/perllib/FixMyStreet/Cobrand/Barnet.pm @@ -77,5 +77,9 @@ sub recent_photos { return Problems::recent_photos( $num, $lat, $lon, $dist ); } +sub tilma_mid_point { + return 189; +} + 1; diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm index b67171a16..daea586e4 100644 --- a/perllib/FixMyStreet/Cobrand/Default.pm +++ b/perllib/FixMyStreet/Cobrand/Default.pm @@ -528,6 +528,16 @@ The MaPit types this site handles sub area_types { return qw(DIS LBO MTD UTA CTY COI); } sub area_min_generation { 10 } +=head2 tilma_mid_point + +If the map is smaller than the usual, return half its size. + +=cut + +sub tilma_mid_point { + return 0; +} + =head2 contact_name, contact_email Return the contact name or email for the cobranded version of the site (to be diff --git a/perllib/FixMyStreet/Map/Tilma/Original.pm b/perllib/FixMyStreet/Map/Tilma/Original.pm index d553b06e2..7ba0afab5 100644 --- a/perllib/FixMyStreet/Map/Tilma/Original.pm +++ b/perllib/FixMyStreet/Map/Tilma/Original.pm @@ -41,7 +41,7 @@ sub header_js { sub display_map { my ($self, $c, %params) = @_; my $mid_point = TILE_WIDTH; # Map is 2 TILE_WIDTHs in size, square. - if (my $mp = Cobrand::tilma_mid_point(Page::get_cobrand($q))) { + if (my $mp = $c->cobrand->tilma_mid_point) { $mid_point = $mp; } |