Changeset 11 in text-formbuilder for trunk/lib

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

Location:

trunk/lib/Text

Files:

• FormBuilder.pm (modified) (3 diffs)
• FormBuilder/Parser.pm (deleted)
• FormBuilder/grammar (modified) (4 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>

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ my ($title, $author, %lists, %patterns, @fields, $type, @options, $list_var, $size, $rows, $cols); }
+{ my ($title, $author, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
 
 form_spec: (list_def | line)(s) 
@@ -8 +8 @@
             lists    => \%lists, 
             patterns => \%patterns, 
+            headings => \@headings,
             fields   => \@fields,
         }
@@ -29 +30 @@
 list_name: /[A-Z_]+/
 
-line: <skip:'[ \t]*'> ( title | author | pattern_def | field | comment | blank ) "\n"
+line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | field | comment | blank ) "\n"
 
 title: '!title' /.*/
@@ -43 +44 @@
 pattern_name: /[A-Z_]+/
 pattern: /.*/
+
+heading: '!head' /.*/
+    { warn "[Text::FormBuilder] Header before field " . scalar(@fields) . " redefined at input text line $thisline\n" if defined $headings[@fields];
+    $headings[@fields] = $item[2] }
 
 field: name field_size(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)