[Zurich] Display message sent to user when report is closed

On the report admin page, include the message the user received when the report was closed.

See mysociety/FixMyStreet-Commercial#718

1 files changed, 16 insertions, 5 deletions

diff --git a/perllib/FixMyStreet/Cobrand/Zurich.pm b/perllib/FixMyStreet/Cobrand/Zurich.pm
index c0fd802da..fae39b28b 100644
--- a/perllib/FixMyStreet/Cobrand/Zurich.pm
+++ b/perllib/FixMyStreet/Cobrand/Zurich.pm
@@ -127,12 +127,17 @@ sub zurich_public_response_states {
     my $states = {
         'fixed - council' => 1,
         'closed'          => 1, # extern
-        'unable to fix'   => 1, # jurisdiction  unknown
+        'unable to fix'   => 1, # jurisdiction unknown
+    };
+
+    return wantarray ? keys %{ $states } : $states;
+}
 
-        # e.g. as above, but WITHOUT the following (as they are hidden)
-        # 'hidden'          => 1,
-        # 'investigating'   => 1, # wish
-        # 'partial'         => 1, # not contactable
+sub zurich_user_response_states {
+    my $states = {
+        'hidden'          => 1,
+        'investigating'   => 1, # wish
+        'partial'         => 1, # not contactable
     };
 
     return wantarray ? keys %{ $states } : $states;
@@ -143,6 +148,12 @@ sub problem_has_public_response {
     return exists $self->zurich_public_response_states->{ $problem->state } ? 1 : 0;
 }
 
+sub problem_has_user_response {
+    my ($self, $problem) = @_;
+    my $state_matches = exists $self->zurich_user_response_states->{ $problem->state } ? 1 : 0;
+    return $state_matches && $problem->get_extra_metadata('public_response');
+}
+
 sub problem_as_hashref {
     my $self = shift;
     my $problem = shift;