#!/usr/bin/perl -wT
  2
  3
  4 use strict;
  5 use CGI;
  6 use CGI::Carp qw(fatalsToBrowser);
  7 use CGI::FormBuilder;
  8
  9 my @fields = qw(name email password confirm_password zipcode);
 10
 11 my $form = CGI::FormBuilder->new(
 12   fields => \@fields,
 13   header => 1,
 14   validate => {
 15     name  => 'NAME',
 16     email => 'EMAIL', },
 17   method => 'post',
 18
 19 );
 20 if ($form->submitted && $form->validate) {
 21   # print confirmation screen
 22   print $form->confirm;
 23 } else {
 24   # print the form for them to fill out
 25   print $form->render;
 26 }
[download]

<div class="formelement"><div class ="label"> [% contact.field.yr_name.label %]</div> [% contact.field.yr_name.field %]</div>

because I don't like the default HTML provided by FB, I don't get the validate display - highlighting and 'Invalid entry' message.

I am wondering how to recreate this particularly when re-rendering the form after an error has occurred. I would like to at least say an error has occurred with the form displayed, or, more preferably, go the full hog and mark the fields that are in error so the user can correct them.

I've tried passing a hidden field to the template by defining this hash

 77 my %myf_error = (
 78   name     => 'myf_error',
 79   id       => 'myf_error',
 80   type     => 'hidden',
 81   values    => '0',
 82 );
[download]

with this object declaration

 85 my $form = CGI::FormBuilder->new(
 86                 template => {
 87                              type=> 'TT2',
 88                              template => 'contact.tt',
 89                              variable => 'contact', },
 90                 name   => 'contactform',
 91                 id     => 'contactform',
 92                 #fields => \@formfields ,
 93                 method => 'post',
 94                 action => $ENV{SCRIPT_NAME},
 95                 keepextras => 1,
 96   );
[download]

I use statements of the form $form->field( %myf_error); to declare the fields into the form. This allows me to use labels for text input fields, select lists and textarea boxes.

Even with

 16         [% FOREACH val IN contact.field.myf_error.values %]
 17            [% val %]
 18         [% END %]
[download]

in the template code, I don't seem to be able to get a hidden field to pass through or read its values.

The template code

[% contact.field.myf_error.values %]

displays

ARRAY(0x8681740)

while the template code [% contact.field.notexisting.values %] displays nothing at all - as per the TT2 documentation. So I deduce something is getting through.

If I try [% contact.field.myf_error.field %] I get a text type input field displayed, not a hidden type.