diff options
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Contact.pm')
-rw-r--r-- | perllib/FixMyStreet/App/Controller/Contact.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Contact.pm b/perllib/FixMyStreet/App/Controller/Contact.pm index 88ac4987f..f28d37989 100644 --- a/perllib/FixMyStreet/App/Controller/Contact.pm +++ b/perllib/FixMyStreet/App/Controller/Contact.pm @@ -39,6 +39,8 @@ Handle contact us form submission sub submit : Path('submit') : Args(0) { my ( $self, $c ) = @_; + $c->res->redirect( '/contact' ) and return unless $c->req->method eq 'POST'; + return unless $c->forward('setup_request') && $c->forward('determine_contact_type') @@ -162,6 +164,10 @@ sub prepare_params_for_email : Private { $c->stash->{problem}->id, $problem_url, $admin_url ); + + # flag this so it's automatically listed in the admin interface + $c->stash->{problem}->flagged(1); + $c->stash->{problem}->update; } return 1; |