From 90da7da99ceddc57f70e678a6f56579f1c89197f Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Wed, 12 Sep 2018 13:25:34 +0100
Subject: Add hook for per-row questionnaire override.

---
 perllib/FixMyStreet/Script/Questionnaires.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perllib')

diff --git a/perllib/FixMyStreet/Script/Questionnaires.pm b/perllib/FixMyStreet/Script/Questionnaires.pm
index 5fc01512d..d89f1bcf8 100644
--- a/perllib/FixMyStreet/Script/Questionnaires.pm
+++ b/perllib/FixMyStreet/Script/Questionnaires.pm
@@ -50,7 +50,10 @@ sub send_questionnaires_period {
         # Not all cobrands send questionnaires
         next unless $cobrand->send_questionnaires;
 
-        if ($row->is_from_abuser || !$row->user->email_verified) {
+        # Cobrands can also override sending per row if they wish
+        my $cobrand_send = $cobrand->call_hook('send_questionnaire', $row) // 1;
+
+        if ($row->is_from_abuser || !$row->user->email_verified || !$cobrand_send) {
             $row->update( { send_questionnaire => 0 } );
             next;
         }
-- 
cgit v1.2.3