package CGI::FormBuilder::Template::Fast; =head1 NAME CGI::FormBuilder::Template::Fast - FormBuilder interface to CGI::FastTemplate =head1 SYNOPSIS my $form = CGI::FormBuilder->new( fields => \@whatever, template => { type => 'Fast', root => '/path/to/templates', # use external files define => { form => 'form.txt', field => 'field.txt', invalid_field => 'invalid_field.txt', }, # or define inline define_nofile => { form => '$START_FORM $FIELDS

$SUBMIT $END_FORM', # etc. }, }, ); =cut use Carp; use strict; use vars qw($VERSION); $VERSION = '3.02'; use CGI::FormBuilder::Util; use CGI::FastTemplate; use base 'CGI::FastTemplate'; sub new { my $self = shift; my $class = ref($self) || $self; my %opt = @_; my $t = CGI::FastTemplate->new($opt{root}); # turn off strict so that undef vars show up # as blank in the template output $t->no_strict; # define our templates $t->define(%{ $opt{define} }); $t->define_raw($opt{define_raw}); $t->define_nofile($opt{define_nofile}); # jam $t info FB 'engine' container $opt{engine} = $t; return bless \%opt, $class; } sub engine { return shift()->{engine}; } sub render { my $self = shift; my $form = shift; # a couple special fields my %tmplvar = $form->tmpl_param; # Go over the fields and process each one for my $field ($form->field) { # Extract value since used often my @value = $field->tag_value; # assign this field's variables $self->{engine}->assign({ NAME => $field->name, FIELD => $field->tag, VALUE => $value[0], # the VALUE tag can only hold first value! LABEL => $field->label, COMMENT => $field->comment, ERROR => $field->error, REQUIRED => ($field->required ? 'required' : 'optional'), }); # TODO: look for special templates based on field name or type? if ($field->invalid) { $self->{engine}->parse(FIELDS => '.invalid_field'); } else { $self->{engine}->parse(FIELDS => '.field'); } $self->{engine}->clear_href; } # a couple special fields $self->{engine}->assign({ TITLE => $form->title, JS_HEAD => $form->script, START_FORM => $form->start . $form->statetags . $form->keepextras, SUBMIT => $form->submit, RESET => $form->reset, END_FORM => $form->end, %tmplvar, }); $self->{engine}->parse(FORM => 'form'); # prepend header to template rendering return $form->header . ${ $self->{engine}->fetch('FORM') }; } # End of Perl code 1; __END__ =head1 DESCRIPTION This engine adapts B to use C. Please read these docs carefully, as the usage differs from other template adapters in several important ways. You will need to define three templates: C

, C, and C. You can use C to point to external files (which is the recommended C style), or C/ C to define them inline. The templates in C take precedence over C, and both of these take precedence over C. my $form = CGI::FormBuilder->new( # ... template => { type => 'FastTemplate', root => '/path/to/templates', define => { form => 'form.txt', field => 'field.txt', invalid_field => 'invalid_field.txt', }, # or, you can define templates directly define_nofile => { form => '$START_FORM' '$FIELDS

$SUBMIT $END_FORM', # etc. }, }, # ... ); If you use C with external templates, you will probably also want to define your template root directory with the C parameter. Within each of the field templates, the following variables are available: $NAME # $field->name $FIELD # $field->tag (HTML input tag) $VALUE # $field->value (first value only!) $LABEL # $field->label $COMMENT # $field->comment $ERROR # $field->error $REQUIRED # $field->required ? 'required' : 'optional' All the fields are processed in sequence; valid fields use the C template, and invalid fields the C template. The result from each of these is appended into the C<$FIELDS> variable, which you should use in your C template. In the C template, you also have access to these variables: $TITLE # title of the form $START_FORM # opening form tag $SUBMIT # the submit button $RESET # the reset button $END_FORM # closing form tag $JS_HEAD # validation JavaScript Note that since C doesn't use anything other than simple scalar variables, there are no variables corrosponding to the lists that other engines have (e.g. C or C lists in C or C). =head1 SEE ALSO L, L, L =head1 AUTHOR Copyright (c) 2005 Peter Eichman . All Rights Reserved. Maintained as part of C by Nathan Wiger . This module is free software; you may copy this under the terms of the GNU General Public License, or the Artistic License, copies of which should have accompanied your Perl kit. =cut