diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Buckinghamshire.pm | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm b/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm new file mode 100644 index 000000000..be090ce17 --- /dev/null +++ b/perllib/FixMyStreet/Cobrand/Buckinghamshire.pm @@ -0,0 +1,48 @@ +package FixMyStreet::Cobrand::Buckinghamshire; +use parent 'FixMyStreet::Cobrand::UKCouncils'; + +use strict; +use warnings; + +sub council_area_id { return 2217; } +sub council_area { return 'Buckinghamshire'; } +sub council_name { return 'Buckinghamshire County Council'; } +sub council_url { return 'buckinghamshire'; } + +sub example_places { + return ( 'HP19 7QF', "Walton Road" ); +} + +sub disambiguate_location { + my $self = shift; + my $string = shift; + + my $town = 'Buckinghamshire'; + + return { + %{ $self->SUPER::disambiguate_location() }, + town => $town, + centre => '51.7852948471218,-0.812140044990842', + span => '0.596065946222112,0.664092167105497', + bounds => [ 51.4854160129405, -1.1406945585036, 52.0814819591626, -0.476602391398098 ], + }; +} + +sub pin_colour { + my ( $self, $p, $context ) = @_; + return 'grey' if $p->state eq 'not responsible'; + return 'green' if $p->is_fixed || $p->is_closed; + return 'red' if $p->state eq 'confirmed'; + return 'yellow'; +} + +sub contact_email { + my $self = shift; + return join( '@', 'pjparfitt', 'buckscc.gov.uk' ); +} + +sub send_questionnaires { + return 0; +} + +1; |