aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/Cobrand')
-rw-r--r--perllib/FixMyStreet/Cobrand/FixMyStreet.pm14
-rw-r--r--perllib/FixMyStreet/Cobrand/IsleOfWight.pm9
2 files changed, 17 insertions, 6 deletions
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
index bfa991b09..705b623d4 100644
--- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
+++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
@@ -38,6 +38,20 @@ sub restriction {
return {};
}
+sub munge_around_category_where {
+ my ($self, $where) = @_;
+
+ my $user = $self->{c}->user;
+ my @iow = grep { $_->name eq 'Isle of Wight Council' } @{ $self->{c}->stash->{bodies} };
+ return unless @iow;
+
+ # display all the categories on Isle of Wight at the moment as there's no way to
+ # do the expand bit later as we fetch it using ajax which uses a bounding box so
+ # can't determine the body
+ $where->{send_method} = [ { '!=' => 'Triage' }, undef ];
+ return $where;
+}
+
sub munge_reports_categories_list {
my ($self, $categories) = @_;
diff --git a/perllib/FixMyStreet/Cobrand/IsleOfWight.pm b/perllib/FixMyStreet/Cobrand/IsleOfWight.pm
index dd4b936d7..b43802d92 100644
--- a/perllib/FixMyStreet/Cobrand/IsleOfWight.pm
+++ b/perllib/FixMyStreet/Cobrand/IsleOfWight.pm
@@ -123,16 +123,13 @@ sub munge_category_list {
@$options = grep { my $c = ($_->{category} || $_->category); $c =~ 'Pick a category' || $seen->{ $c } } @$options;
}
-sub munge_category_where {
+sub munge_around_category_where {
my ($self, $where) = @_;
my $user = $self->{c}->user;
my $b = $self->{c}->model('DB::Body')->for_areas( $self->council_area_id )->first;
if ( $user && ( $user->is_superuser || $user->belongs_to_body( $b->id ) ) ) {
- $where = {
- body_id => $where->{body_id},
- send_method => [ { '!=' => 'Triage' }, undef ],
- };
+ $where->{send_method} = [ { '!=' => 'Triage' }, undef ];
return $where;
}
@@ -152,7 +149,7 @@ sub munge_load_and_group_problems {
return $problems;
}
-sub munge_filter_category {
+sub munge_around_filter_category_list {
my $self = shift;
my $c = $self->{c};