Changeset 61 in text-formbuilder

Timestamp:

02/10/05 16:52:01 (19 years ago)

Author:

peichman

Message:

added growable field support (release pending release of FB 3.002)
upped FB required version to 3.001
added a belated thank you to Nate

Location:

trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Text/FormBuilder.pm (modified) (4 diffs)
• lib/Text/FormBuilder/grammar (modified) (2 diffs)

trunk/Makefile.PL

@@ -7 +7 @@
 ##     EXE_FILES         => [ 'bin/fb.pl' ],
     PREREQ_PM         => { 
-                            CGI::FormBuilder => 2.13,
+                            CGI::FormBuilder => 3.001,
                             Parse::RecDescent => 1.94,
                             Text::Template => 1.44,

trunk/lib/Text/FormBuilder.pm

@@ -17 +17 @@
 my %DEFAULT_OPTIONS = (
     method => 'GET',
-    javascript => 0,
+##     javascript => 1,
     keepextras => 1,
 );
@@ -231 +231 @@
             $$_{columns} = int(@{ $$_{options} } / 8) + 1;
         }
-        #$$_{ulist} = 1 if ref $$_{options} and @{ $$_{options} } >= 3;
     }
     
@@ -1053 +1052 @@
 
 This currently only works for single line text fields.
-    
+
+To create a growable field, add a C<*> after the name (and size, if
+given). Growable fields have a button that allows the user to add a
+copy of the field input. Currently, this only works for C<text> and
+C<file> fields. Growable fields also require JavaScript to function
+correctly.
+
+    # you can have as many people as you like
+    person*:text
+
 For the input types that can have options (C<select>, C<radio>, and
 C<checkbox>), here's how you do it:
@@ -1212 +1220 @@
 sections.
 
+And of course, to Nathan Wiger, for giving use CGI::FormBuilder in the
+first place. Thanks Nate!
+
 =head1 AUTHOR
 

trunk/lib/Text/FormBuilder/grammar

@@ -151 +151 @@
 group_name: /%[A-Z_]+/
 
-field: name field_size(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)
+field: name field_size(?) growable(?) label(?) hint(?) type(?) default(?) option_list(?) validate(?)
     {
         my $field = {
             name     => $item{name},
+            growable => ($item{'growable(?)'}[0] ? 1 : 0),
             label    => $item{'label(?)'}[0],
             comment  => $item{'hint(?)'}[0],
@@ -203 +204 @@
     { $rows = $item[1]; $cols = $item[3] }
 
+growable: '*'
+
 label: '|' (simple_multiword | quoted_string) { $item[2] }