aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet')
-rw-r--r--perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm b/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
index 0c938682d..c0aa89e0d 100644
--- a/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
+++ b/perllib/FixMyStreet/Script/ArchiveOldEnquiries.pm
@@ -11,6 +11,7 @@ use FixMyStreet::Email;
my $opts = {
commit => 0,
+ close_state => 'closed',
};
sub query {
@@ -161,10 +162,10 @@ sub close_problems {
mark_fixed => 0,
anonymous => 0,
state => 'confirmed',
- problem_state => 'closed',
+ problem_state => $opts->{closed_state},
extra => $extra,
} );
- $problem->update({ state => 'closed', send_questionnaire => 0 });
+ $problem->update({ state => $opts->{closed_state}, send_questionnaire => 0 });
next if $opts->{retain_alerts};