aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/App/Controller/Alert.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Alert.pm')
-rw-r--r--perllib/FixMyStreet/App/Controller/Alert.pm17
1 files changed, 16 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Alert.pm b/perllib/FixMyStreet/App/Controller/Alert.pm
index 93080c073..ef37e53c3 100644
--- a/perllib/FixMyStreet/App/Controller/Alert.pm
+++ b/perllib/FixMyStreet/App/Controller/Alert.pm
@@ -25,6 +25,7 @@ Show the alerts page
sub index : Path('') : Args(0) {
my ( $self, $c ) = @_;
+
# my $q = shift;
# my $cobrand = Page::get_cobrand($q);
# my $error = shift;
@@ -157,13 +158,27 @@ sub list : Path('list') : Args(0) {
$c->cobrand->uri( $rss_feed . '/20', $c->fake_q );
}
+=head2 subscribe
+
+Target for subscribe form
+
+=cut
+
+sub subscribe : Path('subscribe') : Args(0) {
+ my ( $self, $c ) = @_;
+
+ if ( $c->req->param( 'rss' ) ) {
+ $c->detach( 'rss' );
+ }
+}
+
=head2 rss
Redirects to relevant RSS feed
=cut
-sub rss : Path('rss') : Args(0) {
+sub rss : Private {
my ( $self, $c ) = @_;
my $feed = $c->req->params->{feed};