adjust the initial display of the map on all reports page so there's

less jumping about on Internet Explorer

3 files changed, 25 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Reports.pm b/perllib/FixMyStreet/App/Controller/Reports.pm
index 60d6d05a9..d5ccb7f3d 100644
--- a/perllib/FixMyStreet/App/Controller/Reports.pm
+++ b/perllib/FixMyStreet/App/Controller/Reports.pm
@@ -129,6 +129,8 @@ sub ward : Path : Args(2) {
         any_zoom  => 1,
     );
 
+    $c->cobrand->tweak_all_reports_map( $c );
+
     # List of wards
     unless ($c->stash->{ward}) {
         my $children = mySociety::MaPit::call('area/children', [ $c->stash->{council}->{id} ],
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm
index 1d32784db..026a56feb 100644
--- a/perllib/FixMyStreet/Cobrand/Bromley.pm
+++ b/perllib/FixMyStreet/Cobrand/Bromley.pm
@@ -88,5 +88,18 @@ sub contact_name { 'Bromley Council (do not reply)'; }
 
 sub reports_per_page { return 20; }
 
+sub tweak_all_reports_map {
+    my $self = shift;
+    my $c = shift;
+
+    if ( !$c->stash->{ward} ) {
+        $c->stash->{map}->{longitude} = 0.040622967881348;
+        $c->stash->{map}->{latitude} = 51.36690161822;
+        $c->stash->{map}->{any_zoom} = 0;
+        $c->stash->{map}->{zoom} = 11;
+    }
+}
+
+
 1;
 
diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm
index 569f25a74..ee8a2bf5e 100644
--- a/perllib/FixMyStreet/Cobrand/Default.pm
+++ b/perllib/FixMyStreet/Cobrand/Default.pm
@@ -783,5 +783,15 @@ sub pin_colour {
     return $p->is_fixed ? 'green' : 'red';
 }
 
+=head2 tweak_all_reports_map
+
+Used to tweak the display settings of the map on the all reports pages.
+
+Used in some cobrands to improve the intial display for Internet Explorer.
+
+=cut
+
+sub tweak_all_reports_map {}
+
 1;