diff options
author | Matthew Somerville <matthew@mysociety.org> | 2020-01-09 12:24:17 +0000 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2020-01-09 12:24:19 +0000 |
commit | 052c41c69127ee916d8b5cae488da4d0059f218b (patch) | |
tree | 20163f8b6dc0a12dbe9a6a6cafab46a6376f92a1 | |
parent | 628e291c032a4ab31a5932ee9706a1dfddd46fcb (diff) |
[Westminster] Ignore immediate failures on sending
-rw-r--r-- | perllib/Open311.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 3573409e2..00e4bae9b 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -67,20 +67,20 @@ sub get_service_meta_info { return $self->_get_xml_object( $service_meta_xml ); } -sub to_bristol { +sub ignore_failure { my $problem = shift; - return unless $problem->cobrand =~ /fixmystreet|bristol/; + return unless $problem->cobrand =~ /fixmystreet|bristol|westminster/; my $bodies = $problem->bodies; return unless %$bodies; my $body = (values %$bodies)[0]; - return unless $body->areas->{2561}; + return unless $body->areas->{2561} || $body->areas->{2504}; return 1; } sub warn_failure { my ($obj, $problem) = @_; # Special case a poorly behaving Open311 server - return 0 if to_bristol($problem || $obj); + return 0 if ignore_failure($problem || $obj); my $threshold = 1; return $obj->send_fail_count && $obj->send_fail_count == $threshold; } |