From 013f8244d65af76717146a4951f8cb491ed42157 Mon Sep 17 00:00:00 2001
From: Marius Halden <marius.h@lden.org>
Date: Thu, 15 Dec 2016 13:30:16 +0100
Subject: Add colours to map markers

---
 perllib/FixMyStreet/Cobrand/FiksGataMi.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/perllib/FixMyStreet/Cobrand/FiksGataMi.pm b/perllib/FixMyStreet/Cobrand/FiksGataMi.pm
index 242735073..27b4850c5 100644
--- a/perllib/FixMyStreet/Cobrand/FiksGataMi.pm
+++ b/perllib/FixMyStreet/Cobrand/FiksGataMi.pm
@@ -28,6 +28,13 @@ sub disambiguate_location {
     };
 }
 
+sub pin_colour {
+    my ( $self, $p, $context ) = @_; 
+    return 'green' if $p->is_fixed || $p->is_closed;
+    return 'red' if $p->state eq 'unconfirmed' || $p->state eq 'confirmed';
+    return 'yellow';
+}
+
 sub area_types {
     my $self = shift;
     return $self->next::method() if FixMyStreet->config('STAGING_SITE') && FixMyStreet->config('SKIP_CHECKS_ON_STAGING');
-- 
cgit v1.2.3