Changeset 14 in text-formbuilder

Timestamp:

10/22/04 16:37:16 (20 years ago)

Author:

peter

Message:

added a !description directive
enabled showing checkboxes/radio groups as ulists when there are 3 or more options

Location:

trunk/lib/Text

Files:

• FormBuilder.pm (modified) (6 diffs)
• FormBuilder/grammar (modified) (2 diffs)

trunk/lib/Text/FormBuilder.pm

@@ -87 +87 @@
     }
 
-##     #TODO: option switch for this
-##     #TODO: goes with CGI::FormBuilder 2.13
-##     foreach (@{ $self->{form_spec}{fields} }) {
-##         $$_{ulist} = 1 if $$_{type} and $$_{type} =~ /checkbox|radio/ and @{ $$_{options} } >= 3;
-##     }
+    foreach (@{ $self->{form_spec}{fields} }) {
+        $$_{ulist} = 1 if defined $$_{options} and @{ $$_{options} } >= 3;
+    }
     
     $self->{form} = CGI::FormBuilder->new(
@@ -107 +105 @@
             },
             data => {
-                headings => $self->{form_spec}{headings},
-                author   => $self->{form_spec}{author},
+                headings    => $self->{form_spec}{headings},
+                author      => $self->{form_spec}{author},
+                description => $self->{form_spec}{description},
             },
         },
@@ -138 +137 @@
     my $title = $self->{form_spec}{title} || '';
     my $author = $self->{form_spec}{author} || '';
+    my $description = $self->{form_spec}{description} || '';
     my $headings = Data::Dumper->Dump([$self->{form_spec}{headings}],['headings']);
     my $fields = Data::Dumper->Dump([ [ map { $$_{name} } @{ $self->{form_spec}{fields} } ] ],['fields']);
@@ -176 +176 @@
                 headings => $headings,
                 author   => q[$author],
+                description => q[$description],
             },
         },
@@ -229 +230 @@
     th h2 { padding: .125em .5em; background: #eee; }
     th.label { font-weight: normal; text-align: right; vertical-align: top; }
+    td ul { list-style: none; padding-left: 0; margin-left: 0; }
   </style>
 </head>
@@ -235 +237 @@
 <h1><% $title %></h1>
 <% $author ? qq[<p id="author">Created by $author</p>] : '' %>
+<% $description ? qq[<p id="description">$description</p>] : '' %>
 ] . $self->_form_template . q[
 <hr />

trunk/lib/Text/FormBuilder/grammar

@@ -1 @@
-{ my ($title, $author, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
+{ my ($title, $author, $description, %lists, %patterns, @fields, @headings, $type, @options, $list_var, $size, $rows, $cols); }
 
-form_spec: (list_def | line)(s) 
+form_spec: (list_def | description_def | line)(s) 
     {
         $return = {
             title    => $title,
             author   => $author,
+            description => $description,
             lists    => \%lists, 
             patterns => \%patterns, 
@@ -29 +30 @@
 
 list_name: /[A-Z_]+/
+
+description_def: '!description' <perl_codeblock>
+    { warn "[Text::FormBuilder] Description redefined at input text line $thisline\n" if defined $description;
+    
+    $description = $item[2];
+    $description =~ s/^{\s*|\s*}$//g;
+    }
 
 line: <skip:'[ \t]*'> ( title | author | pattern_def | heading | field | comment | blank ) "\n"