Changeset 11 in text-formbuilder for trunk/lib/Text/FormBuilder.pm

Timestamp:

10/22/04 10:10:54 (20 years ago)

Author:

peter

Message:

added a !head directive for section headers in forms
removed generated Parser.pm file from version control

File:

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

trunk/lib/Text/FormBuilder.pm

@@ -92 +92 @@
                 TYPE       => 'STRING',
                 SOURCE     => $self->_template,
-                DELIMETERS => [ qw(<% %>) ],
+                DELIMITERS => [ qw(<% %>) ],
             },
             data => {
-                author => $self->{form_spec}{author},
+                headings => $self->{form_spec}{headings},
+                author   => $self->{form_spec}{author},
             },
         },
@@ -125 +126 @@
   <style type="text/css">
     #author, #footer { font-style: italic; }
-    th { font-weight: normal; text-align: right; vertical-align: top; }
+    th { text-align: left; }
+    th h2 { padding: .125em .5em; background: #eee; }
+    th.label { font-weight: normal; text-align: right; vertical-align: top; }
   </style>
 </head>
@@ -135 +138 @@
 <% $start %>
 <table>
-<% foreach (@fields) {
+<% my $i; foreach(@fields) {
+    $OUT .= qq[  <tr><th colspan="2"><h2>$headings[$i]</h2></th></tr>\n] if $headings[$i];
     $OUT .= qq[  <tr>];
-    $OUT .= '<th>' . ($$_{required} ? qq[<strong class="required">$$_{label}:</strong>] : "$$_{label}:") . '</th>';
-    $OUT .= qq[<td>$$_{field} $$_{comment}</td></tr>\n]
+    $OUT .= '<th class="label">' . ($$_{required} ? qq[<strong class="required">$$_{label}:</strong>] : "$$_{label}:") . '</th>';
+    $OUT .= qq[<td>$$_{field} $$_{comment}</td></tr>\n];
+    $i++;
 } %>
   <tr><th></th><td style="padding-top: 1em;"><% $submit %></td></tr>