diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2020-07-10 19:27:34 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2020-07-10 19:27:34 +0100 |
| commit | 71f4787dce0dec5c2f7157f106a5b539c24c6071 (patch) | |
| tree | 5b4b730a74f617b8d6576e77eed5ecbccdc9b7bc | |
| parent | f55c261f92ea53d5a36da5d5297394baabd740a4 (diff) | |
[Open311] Make exclude field list case-insensitive.
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index e8e840ef5..5c4407094 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -47,7 +47,7 @@ sub send { push @$extra, @$include if $include; if ($exclude) { $exclude = join('|', @$exclude); - @$extra = grep { $_->{name} !~ /$exclude/ } @$extra; + @$extra = grep { $_->{name} !~ /$exclude/i } @$extra; } my $id_field = $contact->id_field; |