#!/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 }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

 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   );

##</code><code>##

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