From c7d98f98bf4faa1a60552dd11195eb134445b6b3 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Wed, 27 Sep 2017 14:46:46 +0100 Subject: Adapt things that assume email will be present. This includes stopping some emails being sent (moderation, alert, questionnaire), dealing with Open311/email report sending, and tokenised_url. --- perllib/FixMyStreet/App/Controller/Auth.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perllib/FixMyStreet/App/Controller/Auth.pm') diff --git a/perllib/FixMyStreet/App/Controller/Auth.pm b/perllib/FixMyStreet/App/Controller/Auth.pm index a6a6378da..0b156ddd3 100644 --- a/perllib/FixMyStreet/App/Controller/Auth.pm +++ b/perllib/FixMyStreet/App/Controller/Auth.pm @@ -216,7 +216,8 @@ sub token : Path('/M') : Args(1) { $c->stash->{token_not_found} = 1, return if $data->{old_email} && (!$c->user_exists || $c->user->email ne $data->{old_email}); - $c->detach( '/auth/process_login', [ $data, 'email' ] ); + my $type = $data->{login_type} || 'email'; + $c->detach( '/auth/process_login', [ $data, $type ] ); } sub process_login : Private { -- cgit v1.2.3