diff options
Diffstat (limited to 'perllib')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/EastSussex.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/EastSussex.pm b/perllib/FixMyStreet/Cobrand/EastSussex.pm index c039b8410..6099d74de 100644 --- a/perllib/FixMyStreet/Cobrand/EastSussex.pm +++ b/perllib/FixMyStreet/Cobrand/EastSussex.pm @@ -110,5 +110,22 @@ sub get_geocoder { return 'OSM'; # default of Bing gives poor results, let's try overriding. } +# for the /around/ page +sub on_map_default_max_pin_age { + return '3 months'; +} + +# for the /reports/ page +sub reports_per_page { return 20; } + +sub pin_colour { + my ( $self, $p, $context ) = @_; + + # TODO refactor to a Moo(se)? lazy attribute + my $open_states = $self->{open_states} ||= $p->open_states; + + return $open_states->{ $p->state } ? 'yellow' : 'green'; +} + 1; |