package CGI::FormBuilder::Template::TT2; =head1 NAME CGI::FormBuilder::Template::TT2 - FormBuilder interface to Template Toolkit =head1 SYNOPSIS my $form = CGI::FormBuilder->new( fields => \@fields, template => { type => 'TT2', template => 'form.tmpl', variable => 'form', } ); =cut use Carp; use strict; our $VERSION = '3.03'; use CGI::FormBuilder::Util; use Template; sub new { my $self = shift; my $class = ref($self) || $self; my %opt = @_; $opt{engine} = Template->new($opt{engine} || {}) || puke $Template::ERROR unless UNIVERSAL::isa($opt{engine}, 'Template'); return bless \%opt, $class; } sub engine { return shift()->{engine}; } sub render { my $self = shift; my $form = shift; my %tmplvar = $form->tmpl_param; # Template Toolkit can access complex data pretty much unaided for my $field ($form->field) { # Extract value since used often my @value = $field->tag_value; # Create a struct for each field $tmplvar{field}{"$field"} = { %$field, field => $field->tag, value => $value[0], values => \@value, options => [$field->options], label => $field->label, type => $field->type, comment => $field->comment, }; $tmplvar{field}{"$field"}{error} = $field->error; } my $tt2template = $self->{template} || puke "Template Toolkit template not specified"; my $tt2data = $self->{data} || {}; my $tt2var = $self->{variable}; # optional var for nesting # must generate JS first because it affects the others $tmplvar{'jshead'} = $form->script; $tmplvar{'title'} = $form->title; $tmplvar{'start'} = $form->start . $form->statetags . $form->keepextras; $tmplvar{'submit'} = $form->submit; $tmplvar{'reset'} = $form->reset; $tmplvar{'end'} = $form->end; $tmplvar{'invalid'}= $form->invalid; $tmplvar{'fields'} = [ map $tmplvar{field}{$_}, $form->field ]; if ($tt2var) { $tt2data->{$tt2var} = \%tmplvar; } else { $tt2data = { %$tt2data, %tmplvar }; } my $tt2output; # growing a scalar is so C-ish $self->{engine}->process($tt2template, $tt2data, \$tt2output) || puke $self->{engine}->error(); return $form->header . $tt2output; } 1; __END__ =head1 DESCRIPTION This engine adapts B to use C