3 files changed, 26 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Report/Update.pm b/perllib/FixMyStreet/App/Controller/Report/Update.pm
index 610f0f4eb..e04d99ac1 100644
--- a/perllib/FixMyStreet/App/Controller/Report/Update.pm
+++ b/perllib/FixMyStreet/App/Controller/Report/Update.pm
@@ -642,6 +642,8 @@ sub signup_for_alerts : Private {
         $alert->disable();
     }
 
+    $c->cobrand->call_hook(update_email_shortlisted_user => $update);
+
     return 1;
 }
 
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
index f2551a16d..26638d41c 100644
--- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
+++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
@@ -325,4 +325,9 @@ sub send_questionnaire {
     return 1;
 }
 
+sub update_email_shortlisted_user {
+    my ($self, $update) = @_;
+    FixMyStreet::Cobrand::TfL::update_email_shortlisted_user($self, $update);
+}
+
 1;
diff --git a/perllib/FixMyStreet/Cobrand/TfL.pm b/perllib/FixMyStreet/Cobrand/TfL.pm
index 4543c1751..ececa1184 100644
--- a/perllib/FixMyStreet/Cobrand/TfL.pm
+++ b/perllib/FixMyStreet/Cobrand/TfL.pm
@@ -141,4 +141,23 @@ sub must_have_2fa {
     return 0;
 }
 
+sub update_email_shortlisted_user {
+    my ($self, $update) = @_;
+    my $c = $self->{c};
+    my $shortlisted_by = $update->problem->shortlisted_user;
+    if ($shortlisted_by && $shortlisted_by->from_body && $shortlisted_by->from_body->name eq 'TfL' && $shortlisted_by->id ne $update->user_id) {
+        $c->send_email('alert-update.txt', {
+            to => [ [ $shortlisted_by->email, $shortlisted_by->name ] ],
+            report => $update->problem,
+            problem_url => $c->cobrand->base_url_for_report($update->problem) . $update->problem->url,
+            data => [ {
+                item_photo => $update->photo,
+                item_text => $update->text,
+                item_name => $update->name,
+                item_anonymous => $update->anonymous,
+            } ],
+        });
+    }
+}
+
 1;