diff options
Diffstat (limited to 'perllib/FixMyStreet/SendReport/Open311.pm')
| -rw-r--r-- | perllib/FixMyStreet/SendReport/Open311.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/SendReport/Open311.pm b/perllib/FixMyStreet/SendReport/Open311.pm index e8e840ef5..e51bd76c9 100644 --- a/perllib/FixMyStreet/SendReport/Open311.pm +++ b/perllib/FixMyStreet/SendReport/Open311.pm @@ -41,13 +41,13 @@ sub send { # Try and fill in some ones that we've been asked for, but not asked the user for my $extra = $row->get_extra_fields(); - my ($include, $exclude) = $cobrand->call_hook(open311_extra_data => $row, $h, $extra, $contact); + my ($include, $exclude) = $cobrand->call_hook(open311_extra_data => $row, $h, $contact); my $original_extra = [ @$extra ]; 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; |