diff options
Diffstat (limited to 'perllib/FixMyStreet/TestMech.pm')
| -rw-r--r-- | perllib/FixMyStreet/TestMech.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/TestMech.pm b/perllib/FixMyStreet/TestMech.pm index be8f004a5..5b3cc39a7 100644 --- a/perllib/FixMyStreet/TestMech.pm +++ b/perllib/FixMyStreet/TestMech.pm @@ -238,7 +238,10 @@ sub page_errors { process 'div.form-error, p.form-error, p.error, ul.error li', 'errors[]', 'TEXT'; } ->scrape( $mech->response ); - return $result->{errors} || []; + my $err = $result->{errors} || []; + my %seen = (); + $err = [ grep { not $seen{$_}++ } @$err ]; + return $err; } =head2 import_errors @@ -479,6 +482,10 @@ sub visible_form_values { my %params = map { $_ => $form->value($_) } @visible_field_names; + # Ignore content experiment fields + delete $params{email_y}; + delete $params{email_n}; + return \%params; } |