aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand/Bromley.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/Bromley.pm')
-rw-r--r--perllib/FixMyStreet/Cobrand/Bromley.pm55
1 files changed, 54 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm
index 75174b638..f7d885da2 100644
--- a/perllib/FixMyStreet/Cobrand/Bromley.pm
+++ b/perllib/FixMyStreet/Cobrand/Bromley.pm
@@ -1,5 +1,7 @@
package FixMyStreet::Cobrand::Bromley;
-use base 'FixMyStreet::Cobrand::UKCouncils';
+use mro 'c3';
+use parent 'FixMyStreet::Cobrand::FixMyStreet';
+use parent 'FixMyStreet::Cobrand::UKCouncils';
use strict;
use warnings;
@@ -9,6 +11,10 @@ sub council_area { return 'Bromley'; }
sub council_name { return 'Bromley Council'; }
sub council_url { return 'bromley'; }
+sub base_url {
+ 'https://fix.bromley.gov.uk';
+}
+
sub path_to_web_templates {
my $self = shift;
return [
@@ -17,10 +23,16 @@ sub path_to_web_templates {
];
}
+sub site_title {
+ my ($self) = @_;
+ return "London Borough of Bromley - Report a problem in Bromley\x{2019}s streets or parks";
+}
+
sub disambiguate_location {
my $self = shift;
return {
%{ $self->SUPER::disambiguate_location() },
+ town => 'Bromley',
centre => '51.366836,0.040623',
span => '0.154963,0.24347',
bounds => [ '51.289355,-0.081112', '51.444318,0.162358' ],
@@ -31,5 +43,46 @@ sub example_places {
return ( 'BR1 3UH', 'Glebe Rd, Bromley' );
}
+sub map_type {
+ 'Bromley';
+}
+
+sub on_map_default_max_pin_age {
+ return '1 month';
+}
+
+# Bromley pins always yellow
+sub pin_colour {
+ my ( $self, $p, $context ) = @_;
+ return 'yellow';
+}
+
+sub recent_photos {
+ my ( $self, $area, $num, $lat, $lon, $dist ) = @_;
+ $num = 3 if $num > 3 && $area eq 'alert';
+ return $self->problems->recent_photos( $num, $lat, $lon, $dist );
+}
+
+sub send_questionnaires {
+ return 0;
+}
+
+sub ask_ever_reported {
+ return 0;
+}
+
+sub process_extras {
+ my $self = shift;
+ $self->SUPER::process_extras( @_, [ 'first_name', 'last_name' ] );
+}
+
+sub contact_email {
+ my $self = shift;
+ my $type = shift || '';
+ return join( '@', 'info', 'bromley.gov.uk' ) if $type eq 'contact';
+ return $self->next::method();
+}
+sub contact_name { 'Bromley Council (do not reply)'; }
+
1;