fix bug in TextCSV field caused by setting error for multiple values in Text field

Author: gshank

lib/HTML/FormHandler/Field/Text.pm

@@ -34,6 +34,15 @@ sub get_class_messages {
     return $messages;
 }
 
+sub _inner_validate_field {
+    my $self = shift;
+    # Check for multiple values
+    if ( ref $self->value eq 'ARRAY' ) {
+        return $self->add_error(
+            $self->get_message('multiple_values_disallowed'),
+        );
+    }
+}
 
 sub validate {
     my $field = shift;
@@ -54,13 +63,6 @@ sub validate {
             $minlength, length $value, $field->loc_label )
             if length $value < $minlength;
     }
-
-    # Check for multiple values
-    if ( ref $value eq 'ARRAY' ) {
-        return $field->add_error(
-            $field->get_message('multiple_values_disallowed'),
-        );
-    }
     return 1;
 }
 

t/fields/textcsv.t

@@ -27,6 +27,7 @@ ok( $rendered, 'rendering worked' );
 
 my $params = { foo => '', bar => '1,2'  };
 $form->process( $params );
+ok( $form->validated, 'validated ok' );
 $fif = $form->fif;
 is_deeply( $fif, $params, 'fif ok' );
 my $value = $form->value;