aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand/TfL.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/TfL.pm')
-rw-r--r--perllib/FixMyStreet/Cobrand/TfL.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/TfL.pm b/perllib/FixMyStreet/Cobrand/TfL.pm
index cab1e3ada..6bc6f9be5 100644
--- a/perllib/FixMyStreet/Cobrand/TfL.pm
+++ b/perllib/FixMyStreet/Cobrand/TfL.pm
@@ -108,6 +108,17 @@ sub admin_allow_user {
return $user->from_body->name eq 'TfL';
}
+sub state_groups_inspect {
+ my $rs = FixMyStreet::DB->resultset("State");
+ my @open = grep { $_ !~ /^(planned|action scheduled|for triage)$/ } FixMyStreet::DB::Result::Problem->open_states;
+ my @closed = grep { $_ ne 'closed' } FixMyStreet::DB::Result::Problem->closed_states;
+ [
+ [ $rs->display('confirmed'), \@open ],
+ [ $rs->display('fixed'), [ 'fixed - council' ] ],
+ [ $rs->display('closed'), \@closed ],
+ ]
+}
+
sub fetch_area_children {
my $self = shift;