Merge branch 'migrate_to_catalyst' of ssh://git.mysociety.org/data/git/public/fixmystreet into migrate_to_catalyst

1 files changed, 2 insertions, 11 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Tokens.pm b/perllib/FixMyStreet/App/Controller/Tokens.pm
index 792c875fd..92a44e756 100644
--- a/perllib/FixMyStreet/App/Controller/Tokens.pm
+++ b/perllib/FixMyStreet/App/Controller/Tokens.pm
@@ -4,8 +4,6 @@ use namespace::autoclean;
 
 BEGIN { extends 'Catalyst::Controller'; }
 
-use FixMyStreet::Alert;
-
 =head1 NAME
 
 FixMyStreet::App::Controller::Tokens - Handle auth tokens
@@ -57,15 +55,8 @@ sub confirm_problem : Path('/P') {
     ) if $problem->state eq 'unconfirmed';
 
     # Subscribe problem reporter to email updates
-    my $alert = $c->model('DB::Alert')->find_or_create(
-        {
-            user         => $problem->user,
-            alert_type   => 'new_updates',
-            cobrand      => $problem->cobrand,
-            cobrand_data => $problem->cobrand_data,
-            parameter    => $problem->id
-        }
-    )->confirm;
+    $c->stash->{report} = $c->stash->{problem};
+    $c->forward( '/report/new/create_reporter_alert' );
 
     # log the problem creation user in to the site
     $c->authenticate( { email => $problem->user->email }, 'no_password' );