Fix CM8 Bromley pin colours.

1 files changed, 6 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm
index a9088f32a..b59080848 100644
--- a/perllib/FixMyStreet/Cobrand/Bromley.pm
+++ b/perllib/FixMyStreet/Cobrand/Bromley.pm
@@ -37,6 +37,12 @@ sub recent_photos {
     return $self->problems->recent_photos( $num, $lat, $lon, $dist );
 }
 
+sub pin_colour {
+    my ( $self, $p ) = @_;
+    return 'green' if time() - $p->confirmed_local->epoch < 7 * 24 * 60 * 60;
+    return 'yellow';
+}
+
 sub process_extras {
     my $self     = shift;
     my $ctx      = shift;