update report display to handle new statuses

1 files changed, 15 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm
index 366024c7c..3e82e3784 100644
--- a/perllib/FixMyStreet/DB/Result/Problem.pm
+++ b/perllib/FixMyStreet/DB/Result/Problem.pm
@@ -284,6 +284,21 @@ sub get_photo_params {
     return $photo;
 }
 
+sub is_open {
+    my $self = shift;
+
+    my %open_states = (
+        unconfirmed => 1,
+        partial => 1,
+        confirmed => 1,
+        'planned' => 1,
+        'investigating' => 1,
+        'in progress' => 1,
+    );
+
+    return exists $open_states{ $self->state } ? 1 : 0;
+}
+
 =head2 meta_line
 
 Returns a string to be used on a problem report page, describing some of the