Automatically fill in email address of logged in user

1 files changed, 5 insertions, 1 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Alert.pm b/perllib/FixMyStreet/App/Controller/Alert.pm
index 595f6d252..28b338563 100644
--- a/perllib/FixMyStreet/App/Controller/Alert.pm
+++ b/perllib/FixMyStreet/App/Controller/Alert.pm
@@ -69,6 +69,10 @@ sub list : Path('list') : Args(0) {
     $c->stash->{rznvy}         = $c->req->param('rznvy');
     $c->stash->{selected_feed} = $c->req->param('feed');
 
+    if ( $c->user ) {
+        $c->stash->{rznvy} ||= $c->user->email;
+    }
+
  #    my ($q, @errors) = @_;
  #    my @vars = qw(pc rznvy lat lon);
  #    my %input = map { $_ => scalar $q->param($_) } @vars;
@@ -245,7 +249,7 @@ sub subscribe_email : Private {
 
     my $email = $c->req->param('rznvy');
     $c->stash->{email} = $email;
-    $c->forward( 'process_user' );
+    $c->forward('process_user');
 
     my $alert;