Merge tag 'v3.0.1' into fiksgatami-dev

1 files changed, 163 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Admin/Triage.pm b/perllib/FixMyStreet/App/Controller/Admin/Triage.pm
new file mode 100644
index 000000000..428c35073
--- /dev/null
+++ b/perllib/FixMyStreet/App/Controller/Admin/Triage.pm
@@ -0,0 +1,163 @@
+package FixMyStreet::App::Controller::Admin::Triage;
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'Catalyst::Controller'; }
+
+=head1 NAME
+
+FixMyStreet::App::Controller::Admin::Triage - Catalyst Controller
+
+=head1 DESCRIPTION
+
+Admin pages for triaging reports.
+
+This allows reports to be triaged before being sent to the council. It works
+by having a set of categories with a send_method of Triage which sets the report
+state to 'for_triage'. Any reports with the state are then show on '/admin/triage'
+which is available to users with the 'triage' permission.
+
+Clicking on reports on this list will then allow a user to change the category of
+the report to one that has an alternative send method, which will trigger the report
+to be resent.
+
+In order for this to work additional work needs to be done to the cobrand to only
+display triageable categories to the user.
+
+=head1 METHODS
+
+=cut
+
+sub auto : Private {
+    my ( $self, $c ) = @_;
+
+    unless ( $c->user->has_body_permission_to('triage') ) {
+        $c->detach('/page_error_403_access_denied', []);
+    }
+}
+
+sub index : Path : Args(0) {
+    my ( $self, $c ) = @_;
+
+    # default sort to oldest
+    unless ( $c->get_param('sort') ) {
+        $c->set_param('sort', 'created-asc');
+    }
+    $c->stash->{body} = $c->forward('/reports/body_find', [ $c->cobrand->council_area ]);
+    $c->forward( 'stash_report_filter_status' );
+    $c->forward('/reports/stash_report_sort', [ $c->cobrand->reports_ordering ]);
+    $c->forward( '/reports/load_and_group_problems' );
+    $c->stash->{page} = 'reports'; # So the map knows to make clickable pins
+
+    if ($c->get_param('ajax')) {
+        my $ajax_template = $c->stash->{ajax_template} || 'reports/_problem-list.html';
+        $c->detach('/reports/ajax', [ $ajax_template ]);
+    }
+
+    my @categories = $c->stash->{body}->contacts->not_deleted->search( undef, {
+        columns => [ 'id', 'category', 'extra' ],
+        distinct => 1,
+    } )->all_sorted;
+    $c->stash->{filter_categories} = \@categories;
+    $c->stash->{filter_category} = { map { $_ => 1 } $c->get_param_list('filter_category', 1) };
+    my $pins = $c->stash->{pins} || [];
+
+    my %map_params = (
+        latitude  => @$pins ? $pins->[0]{latitude} : 0,
+        longitude => @$pins ? $pins->[0]{longitude} : 0,
+        area      => [ $c->stash->{wards} ? map { $_->{id} } @{$c->stash->{wards}} : keys %{$c->stash->{body}->areas} ],
+        any_zoom  => 1,
+    );
+    FixMyStreet::Map::display_map(
+        $c, %map_params, pins => $pins,
+    );
+}
+
+sub stash_report_filter_status : Private {
+    my ( $self, $c ) = @_;
+    $c->stash->{filter_problem_states} = { 'for triage' => 1 };
+    return 1;
+}
+
+sub setup_categories : Private {
+    my ( $self, $c ) = @_;
+
+    if ( $c->stash->{problem}->state eq 'for triage' ) {
+        $c->stash->{holding_options} = [ grep { $_->send_method && $_->send_method eq 'Triage' } @{$c->stash->{category_options}} ];
+        $c->stash->{holding_categories} = { map { $_->category => 1 } @{$c->stash->{holding_options}} };
+        $c->stash->{end_options} = [ grep { !$_->send_method || $_->send_method ne 'Triage' } @{$c->stash->{category_options}} ];
+        $c->stash->{end_categories} = { map { $_->category => 1 } @{$c->stash->{end_options}} };
+        delete $c->stash->{categories_hash};
+        my %category_groups = ();
+        for my $category (@{$c->stash->{end_options}}) {
+            my $group = $category->{group} // $category->get_extra_metadata('group') // [''];
+            # this could be an array ref or a string
+            my @groups = ref $group eq 'ARRAY' ? @$group : ($group);
+            push( @{$category_groups{$_}}, $category ) for @groups;
+        }
+        my @category_groups = ();
+        for my $group ( grep { $_ ne _('Other') } sort keys %category_groups ) {
+            push @category_groups, { name => $group, categories => $category_groups{$group} };
+        }
+        $c->stash->{end_groups} = \@category_groups;
+    }
+
+    return 1;
+}
+
+sub update : Private {
+    my ($self, $c) = @_;
+
+    my $problem = $c->stash->{problem};
+
+    my $current_category = $problem->category;
+    my $new_category = $c->get_param('category');
+
+    my $changed = $c->forward('/admin/reports/edit_category', [ $problem, 1 ] );
+
+    if ( $changed ) {
+        $c->stash->{problem}->update( { state => 'confirmed' } );
+        $c->forward( '/admin/log_edit', [ $problem->id, 'problem', 'triage' ] );
+
+        my $name = $c->user->moderating_user_name;
+        my $extra = { is_superuser => 1 };
+        if ($c->user->from_body) {
+            delete $extra->{is_superuser};
+            $extra->{is_body_user} = $c->user->from_body->id;
+        }
+
+        $extra->{triage_report} = 1;
+        $extra->{holding_category} = $current_category;
+        $extra->{new_category} = $new_category;
+
+        my $timestamp = \'current_timestamp';
+        my $comment = $problem->add_to_comments( {
+            text => "Report triaged from $current_category to $new_category",
+            created => $timestamp,
+            confirmed => $timestamp,
+            user_id => $c->user->id,
+            name => $name,
+            mark_fixed => 0,
+            anonymous => 0,
+            state => 'confirmed',
+            problem_state => $problem->state,
+            extra => $extra,
+            whensent => \'current_timestamp',
+        } );
+
+        my @alerts = FixMyStreet::DB->resultset('Alert')->search( {
+            alert_type => 'new_updates',
+            parameter  => $problem->id,
+            confirmed  => 1,
+        } );
+
+        for my $alert (@alerts) {
+            my $alerts_sent = FixMyStreet::DB->resultset('AlertSent')->find_or_create( {
+                alert_id  => $alert->id,
+                parameter => $comment->id,
+            } );
+        }
+    }
+}
+
+1;