diff options
| author | Struan Donald <struan@exo.org.uk> | 2012-10-25 12:13:05 +0100 |
|---|---|---|
| committer | Struan Donald <struan@exo.org.uk> | 2012-10-25 12:13:05 +0100 |
| commit | b81ba9819a4f33c21354617538a545a6520eb4d1 (patch) | |
| tree | c6eaf735f0e685442b662eb6eafd7217d7288d99 | |
| parent | dbff22338ad89ce22f28cce080241e2edb4a8cde (diff) | |
add in default map zoom level for cobrand and set stevenage one
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Default.pm | 2 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Cobrand/Stevenage.pm | 2 | ||||
| -rw-r--r-- | perllib/FixMyStreet/Map/OSM.pm | 2 |
3 files changed, 5 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm index 8d0b5ab50..b1127833c 100644 --- a/perllib/FixMyStreet/Cobrand/Default.pm +++ b/perllib/FixMyStreet/Cobrand/Default.pm @@ -678,5 +678,7 @@ Used in some cobrands to improve the intial display for Internet Explorer. sub tweak_all_reports_map {} +sub default_map_zoom { undef }; + 1; diff --git a/perllib/FixMyStreet/Cobrand/Stevenage.pm b/perllib/FixMyStreet/Cobrand/Stevenage.pm index 8832547d4..5f6ac81e8 100644 --- a/perllib/FixMyStreet/Cobrand/Stevenage.pm +++ b/perllib/FixMyStreet/Cobrand/Stevenage.pm @@ -32,5 +32,7 @@ sub example_places { return [ 'SG1 1HN', 'Lyton Way' ]; } +sub default_map_zoom { return 3; } + 1; diff --git a/perllib/FixMyStreet/Map/OSM.pm b/perllib/FixMyStreet/Map/OSM.pm index 693f42e4f..6b3bebba2 100644 --- a/perllib/FixMyStreet/Map/OSM.pm +++ b/perllib/FixMyStreet/Map/OSM.pm @@ -62,7 +62,7 @@ sub display_map { # Adjust zoom level dependent upon population density my $dist = $c->stash->{distance} || mySociety::Gaze::get_radius_containing_population( $params{latitude}, $params{longitude}, 200_000 ); - my $default_zoom = $numZoomLevels - 3; + my $default_zoom = $c->cobrand->default_map_zoom() ? $c->cobrand->default_map_zoom() : $numZoomLevels - 3; $default_zoom = $numZoomLevels - 2 if $dist < 10; # Map centre may be overridden in the query string |