From ef849541cbe7b200db1bd4af6cdc67e3061d1486 Mon Sep 17 00:00:00 2001
From: Struan Donald <struan@exo.org.uk>
Date: Wed, 25 May 2011 11:51:44 +0100
Subject: don't ask questionnaire if they've ever answered before

---
 perllib/FixMyStreet/App/Controller/Report/Update.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'perllib/FixMyStreet/App/Controller/Report/Update.pm')

diff --git a/perllib/FixMyStreet/App/Controller/Report/Update.pm b/perllib/FixMyStreet/App/Controller/Report/Update.pm
index 350024315..1bc15f1f3 100644
--- a/perllib/FixMyStreet/App/Controller/Report/Update.pm
+++ b/perllib/FixMyStreet/App/Controller/Report/Update.pm
@@ -52,11 +52,16 @@ sub update_problem : Private {
     my $problem = $c->stash->{problem} || $update->problem;
 
     if ( $update->mark_fixed eq 't' ) {
-        $problem->state( 'fixed' );
+        $problem->state('fixed');
 
         if ( $update->user->id == $problem->user->id ) {
-            $problem->send_questionnaire( 'f' );
-            $display_questionnaire = 1;
+            $problem->send_questionnaire('f');
+
+            if ( $c->cobrand->ask_ever_reported
+                && !$problem->user->answered_ever_reported )
+            {
+                $display_questionnaire = 1;
+            }
         }
     }
 
@@ -65,7 +70,7 @@ sub update_problem : Private {
 
     $c->stash->{problem} = $problem;
 
-    if ( $display_questionnaire ) {
+    if ($display_questionnaire) {
         $c->detach('/questionnaire/creator_fixed');
     }
 
-- 
cgit v1.2.3