diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Alert.pm')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Alert.pm | 6 |
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; |