Guest User

Untitled

a guest
Jul 18th, 2018
72
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. sub build_hoh {
  2. my $self = shift;
  3. my %params;
  4. my $form = $self->form;
  5.  
  6. for my $fieldname ( $form->fieldnames ) {
  7. my $field = $form->field($fieldname);
  8. if ( $field->value ) {
  9.  
  10. $params{'field_name'} = $fieldname;
  11. $params{$fieldname}{'value'} = $field->value;
  12. $params{$fieldname}{'validators'} = $field->field_validators->{$fieldname};
  13.  
  14. }
  15. }
  16.  
  17. return %params;
  18. }
Add Comment
Please, Sign In to add comment