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

Timestamp:

02/18/05 11:26:45 (19 years ago)

Author:

peichman

Message:

field groups can be directly named as the type in a fieldspec

File:

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

trunk/lib/Text/FormBuilder.pm

@@ -9 +9 @@
 $VERSION = '0.09_02';
 @EXPORT = qw(create_form);
+
+#$::RD_TRACE = 1;
 
 use Carp;
@@ -17 +19 @@
 my %DEFAULT_OPTIONS = (
     method => 'GET',
-##     javascript => 1,
     keepextras => 1,
 );
@@ -226 +227 @@
     }
     
-    # use the list for displaying checkbox groups
+    # use columns for displaying checkbox fields larger than 2 items
     foreach (@{ $self->{form_spec}{fields} }) {
         if (ref $$_{options} and @{ $$_{options} } >= 3) {
@@ -535 +536 @@
                 $OUT .= qq[    <td><span class="fieldgroup">];
                 $OUT .= join(' ', map { qq[<small class="sublabel">$$_{label}</small> $$_{field} $$_{comment}] } @group_fields);
-                $OUT .= " ] . $msg_invalid . q[" if $$_{invalid};
+                #TODO: allow comments on field groups
+                $OUT .= " ] . $msg_invalid . q[" if grep { $$_{invalid} } @group_fields;
                 
                 $OUT .= qq[    </span></td>\n];
@@ -1162 +1164 @@
 C<birthday_day>, and C<birthday_year>.
 
+You can also use groups in normal field lines:
+    
+    birthday|Your birthday:DATE
+
+The only (currently) supported pieces of a fieldspec that may be used with a
+group in this notation are name and label.
+
 =head2 Comments
 
@@ -1175 +1184 @@
 reset button
 
-Allow groups to be used in normal field lines something like this:
-
-    !group DATE {
-        month
-        day
-        year
-    }
-    
-    dob|Your birthday:DATE
+Allow comments on group fields (rendered after the all the fields)
 
 Pieces that wouldn't make sense in a group field: size, row/col, options,