aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/App/Controller/Admin.pm
diff options
context:
space:
mode:
authorChris Mytton <self@hecticjeff.net>2013-09-12 09:57:17 +0100
committerChris Mytton <self@hecticjeff.net>2013-09-12 09:57:17 +0100
commit738b1068c8ea9df4a24056f1784ff5846bb8bb6b (patch)
treebdbbf99b6c4e4286d9bdf6f380b9df941e663fe4 /perllib/FixMyStreet/App/Controller/Admin.pm
parent70ee276344b374773902d9a96c84ad81d7bdfafe (diff)
parentca4487b3b161b857ef5412f93ecd60646697ff2d (diff)
Merge branch 'zurich-mark-external-addresses-deleted'
Conflicts: t/cobrand/zurich.t
Diffstat (limited to 'perllib/FixMyStreet/App/Controller/Admin.pm')
-rw-r--r--perllib/FixMyStreet/App/Controller/Admin.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm
index ba8f22a05..4973b7c4e 100644
--- a/perllib/FixMyStreet/App/Controller/Admin.pm
+++ b/perllib/FixMyStreet/App/Controller/Admin.pm
@@ -413,7 +413,7 @@ sub update_contacts : Private {
sub body_params : Private {
my ( $self, $c ) = @_;
- my @fields = qw/name endpoint jurisdiction api_key send_method send_comments suppress_alerts send_extended_statuses comment_user_id can_be_devolved parent/;
+ my @fields = qw/name endpoint jurisdiction api_key send_method send_comments suppress_alerts send_extended_statuses comment_user_id can_be_devolved parent deleted/;
my %defaults = map { $_ => '' } @fields;
%defaults = ( %defaults,
send_comments => 0,
@@ -422,6 +422,7 @@ sub body_params : Private {
send_extended_statuses => 0,
can_be_devolved => 0,
parent => undef,
+ deleted => 0,
);
my %params = map { $_ => $c->req->param($_) || $defaults{$_} } @fields;
return \%params;