diff options
| author | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-09-30 22:14:48 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew-github@dracos.co.uk> | 2017-09-30 22:14:48 +0100 |
| commit | 8e9cd7cdb0a0f0fe591c2ecc25ae480fa0a5f799 (patch) | |
| tree | de46361b23538b6ba9644898a9f5a55b4aeed9e4 /perllib/FixMyStreet/Script/Questionnaires.pm | |
| parent | a369e1c1a178697d0f92cf82c5bdb23c1883925e (diff) | |
| parent | 83825ebf47cfd40ac649853347c8352944a3d32a (diff) | |
Merge branch 'phone-number-work'
Diffstat (limited to 'perllib/FixMyStreet/Script/Questionnaires.pm')
| -rw-r--r-- | perllib/FixMyStreet/Script/Questionnaires.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/Script/Questionnaires.pm b/perllib/FixMyStreet/Script/Questionnaires.pm index ec6139d2d..5fc01512d 100644 --- a/perllib/FixMyStreet/Script/Questionnaires.pm +++ b/perllib/FixMyStreet/Script/Questionnaires.pm @@ -49,7 +49,11 @@ sub send_questionnaires_period { # Not all cobrands send questionnaires next unless $cobrand->send_questionnaires; - next if $row->is_from_abuser; + + if ($row->is_from_abuser || !$row->user->email_verified) { + $row->update( { send_questionnaire => 0 } ); + next; + } # Cobranded and non-cobranded messages can share a database. In this case, the conf file # should specify a vhost to send the reports for each cobrand, so that they don't get sent |