Changeset 15 in text-formbuilder

Timestamp:

11/02/04 10:09:45 (20 years ago)

Author:

peter

Message:

added invalid field class CSS hook
moved descirption from full tempalte to form template

File:

• trunk/lib/Text/FormBuilder.pm (modified) (3 diffs)

trunk/lib/Text/FormBuilder.pm

@@ -157 +157 @@
 use CGI::FormBuilder;
 
-sub form {
+sub get_form {
     my \$cgi = shift;
     my \$cgi_form = CGI::FormBuilder->new(
@@ -204 +204 @@
 
 sub _form_template {
-q[<p id="instructions">(Required fields are marked in <strong>bold</strong>.)</p>
+q[<% $description ? qq[<p id="description">$description</p>] : '' %>
+<% (grep { $_->{required} } @fields) ? qq[<p id="instructions">(Required fields are marked in <strong>bold</strong>.)</p>] : '' %>
 <% $start %>
 <table>
 <% my $i; foreach(@fields) {
     $OUT .= qq[  <tr><th class="sectionhead" colspan="2"><h2>$headings[$i]</h2></th></tr>\n] if $headings[$i];
-    $OUT .= qq[  <tr>];
+    $OUT .= $$_{invalid} ? qq[  <tr class="invalid">] : qq[  <tr>];
     $OUT .= '<th class="label">' . ($$_{required} ? qq[<strong class="required">$$_{label}:</strong>] : "$$_{label}:") . '</th>';
-    $OUT .= qq[<td>$$_{field} $$_{comment}</td></tr>\n];
+    if ($$_{invalid}) {
+        $OUT .= qq[<td>$$_{field} $$_{comment} Missing or invalid value.</td></tr>\n];
+    } else {
+        $OUT .= qq[<td>$$_{field} $$_{comment}</td></tr>\n];
+    }
     $i++;
 } %>
@@ -237 +242 @@
 <h1><% $title %></h1>
 <% $author ? qq[<p id="author">Created by $author</p>] : '' %>
-<% $description ? qq[<p id="description">$description</p>] : '' %>
 ] . $self->_form_template . q[
 <hr />