aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/Open311.pm
diff options
context:
space:
mode:
authorMatthew Somerville <matthew-github@dracos.co.uk>2018-10-08 15:28:11 +0100
committerMatthew Somerville <matthew-github@dracos.co.uk>2018-10-08 15:28:11 +0100
commit2c24318939d310100559b0bc8aed663ff940ce22 (patch)
treedde559ef21d1e1bd9eea2cf69596171c2010a6c9 /perllib/Open311.pm
parent7f7431377721bc64c3816e5af4f54bdd5f6cd064 (diff)
[Open311] Add ability to send reopen status.
Switch on for Buckinghamshire.
Diffstat (limited to 'perllib/Open311.pm')
-rw-r--r--perllib/Open311.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index 7c12ee3a1..6c6ec59cc 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -34,6 +34,7 @@ has extended_statuses => ( is => 'ro', isa => Bool, default => 0 );
has always_send_email => ( is => 'ro', isa => Bool, default => 0 );
has multi_photos => ( is => 'ro', isa => Bool, default => 0 );
has use_customer_reference => ( is => 'ro', isa => Bool, default => 0 );
+has mark_reopen => ( is => 'ro', isa => Bool, default => 0 );
before [
qw/get_service_list get_service_meta_info get_service_requests get_service_request_updates
@@ -362,6 +363,8 @@ sub _populate_service_request_update_params {
$status = 'NO_FURTHER_ACTION';
} elsif ( $state eq 'internal referral' ) {
$status = 'INTERNAL_REFERRAL';
+ } elsif ($comment->mark_open && $self->mark_reopen) {
+ $status = 'REOPEN';
}
} else {
if ( !FixMyStreet::DB::Result::Problem->open_states()->{$state} ) {