<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

  <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">

  <title></title>

</head>

<body bgcolor="#ffffff" text="#000000">

Bernard FRIT wrote:

<blockquote cite="mid3390cd220510120609h2665f957m@mail.gmail.com"

 type="cite">

  <pre wrap="">2005/10/12, Christopher H. Laco <a class="moz-txt-link-rfc2396E" href="mailto:claco@chrislaco.com">&lt;claco@chrislaco.com&gt;</a>:

  </pre>

  <blockquote type="cite">

    <pre wrap="">Yeah. That means I did something right. :-)

    </pre>

  </blockquote>

  <pre wrap=""><!---->

You did it !!

  </pre>

  <blockquote type="cite">

    <pre wrap="">How's the project going?

    </pre>

  </blockquote>

  <pre wrap=""><!---->

Very slowly (!!) as it's a part time project and I have to glue

several things together :

- Catalyst (new for me)

- Handel (ditto)

- Glimpse

- Formbuilder

- TT2

At the moment I'm experiencing strong drawbacks in glueing Formbuilder

with Catalyst.

  </pre>

</blockquote>

<br>

I have registered the CGI::FormManager namespace for an alternative to

CGI::FormBuilder.&nbsp; Similar sort of API, but the module uses

<a class="moz-txt-link-freetext" href="Data::FormValidator">Data::FormValidator</a> for validation.&nbsp; <br>

<br>

The idiom is:<br>

<blockquote><tt>my $fmgr = CGI::FormManager-&gt;new(</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form1 =&gt; { options =&gt; { method =&gt; "POST" },</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; elements =&gt; [ "&lt;h1&gt;User

data&lt;/h1&gt;",</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; text_field(name =&gt; 'name'),</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; text_field(name =&gt; 'email'),</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; select_field(name =&gt; 'ctry',</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; label =&gt;

'country',</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; options =&gt; [ [

"" =&gt; "-- select a country --" ],</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [ "GB"

=&gt; "united Kingdom" ],<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "US=United

States",<br>

  </tt><tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

...</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ] ),</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ...</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; validation =&gt; { required =&gt; [ qw(name

email ctry) ],</tt><br>

  <tt>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; constraint_methods =&gt;&nbsp; {</tt><br>

  <tt>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; email =&gt; email(),</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; },</tt><br>

  <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; form2 =&gt; { ... }),</tt><br>

  <br>

  <tt>my $form = $fmgr-&gt;form("form1");</tt><br>

  <br>

  <tt>$tt2-&gt;process('template', { form = $form })</tt><br>

  <br>

  <tt>my $results = $form-&gt;validate(\%data);&nbsp;&nbsp;&nbsp; # or pass a $cgi

object<br>

if ($results) {<br>

&nbsp;&nbsp;&nbsp; # do something<br>

}<br>

else {<br>

  </tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <tt>@missing_values = $results-&gt;missi</tt>ng;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <tt>...</tt><br>

</blockquote>

Form objects stringify as the HTML that makes up the form, either using

a built in template (which uses tables and CSS for layout) or one

specified in the form options.&nbsp; Results objects are forms, so will

stringify to HTML with value and selected attributes set according to

the supplied data, and will include error messages where validation

fails.&nbsp; This means you can have TT2 templates that just say:<br>

<blockquote><tt>&lt;h1&gt;My form&lt;/h1&gt;<br>

some instructions here<br>

[% form %]<br>

  </tt></blockquote>

The user data is held in the results object when you do a

$form-&gt;validate, so it gets discarded when $results goes out of

scope, but the idea is that you store a form manager object in class

data of a Catalyst component, so it only needs to be constructed at

server startup.<br>

<br>

There is also a $form-&gt;confirm which generates a table of the values

supplied, with hidden fields for each data value and confirm, edit and

cancel buttons.<br>

<br>

Bool is overloaded for results objects so that they return

$results-&gt;success (as with <a class="moz-txt-link-freetext" href="Data::FormValidator">Data::FormValidator</a> objects); forms are

false in a boolean context (although you can say defined($form) if that

is what you want to test).<br>

<tt><br>

</tt>I am still fleshing out and tweaking the module but am already

using it for a couple of web sites.&nbsp; I hope to have a first version

ready to upload to CPAN within a week or so.<br>

<br>

Andrew<br>

<pre class="moz-signature" cols="72">-- 

Andrew Ford,  Director    Pauntley Prints / Ford &amp; Mason Ltd            

<a class="moz-txt-link-abbreviated" href="mailto:A.Ford@ford-mason.co.uk">A.Ford@ford-mason.co.uk</a>   South Wing Compton House                      

pauntley-prints.co.uk     Compton Green, Redmarley  Tel: +44 1531 829900

ford-mason.co.uk          Gloucester GL19 3JB       Fax: +44 1531 829901

refcards.com cronolog.org Great Britain          Mobile: +44 7785 258278

</pre>

</body>

</html>