diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2020-05-27 21:01:10 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2020-06-03 17:24:12 +0100 |
| commit | 5412a569e233b82c8f971e07c57c73d2ef3f6733 (patch) | |
| tree | 22c417502f49b705c278f6e71c2375d2c32780d3 /perllib/FixMyStreet/Script/Alerts.pm | |
| parent | f8859e29f5bcf75c1b2acb934bd4353f83c5a2c1 (diff) | |
Mark user as active when sent an email alert.
Diffstat (limited to 'perllib/FixMyStreet/Script/Alerts.pm')
| -rw-r--r-- | perllib/FixMyStreet/Script/Alerts.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Script/Alerts.pm b/perllib/FixMyStreet/Script/Alerts.pm index cb1f022fa..d07728092 100644 --- a/perllib/FixMyStreet/Script/Alerts.pm +++ b/perllib/FixMyStreet/Script/Alerts.pm @@ -307,6 +307,10 @@ sub _send_aggregated_alert_email(%) { # Ignore phone-only users return unless $data{alert_user}->email_verified; + # Mark user as active as they're being sent an alert + $data{alert_user}->set_last_active; + $data{alert_user}->update; + my $email = $data{alert_user}->email; my ($domain) = $email =~ m{ @ (.*) \z }x; return if $data{schema}->resultset('Abuse')->search( { |