Changeset 60 in text-formbuilder for trunk/lib/Text

Timestamp:

02/10/05 16:16:05 (20 years ago)

Author:

peichman

Message:

using the 'columns' argument to get columns of checkboxes (instead of 'ulist')
updated version number

File:

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

trunk/lib/Text/FormBuilder.pm

@@ -7 +7 @@
 use vars qw($VERSION @EXPORT);
 
-$VERSION = '0.09_01';
+$VERSION = '0.09_02';
 @EXPORT = qw(create_form);
 
@@ -24 +24 @@
 my $DEFAULT_CSS = <<END;
 table { padding: 1em; }
+td table { padding: 0; } /* exclude the inner checkbox tables */
 #author, #footer { font-style: italic; }
 caption h2 { padding: .125em .5em; background: #ccc; text-align: left; }
@@ -227 +228 @@
     # use the list for displaying checkbox groups
     foreach (@{ $self->{form_spec}{fields} }) {
-        $$_{ulist} = 1 if ref $$_{options} and @{ $$_{options} } >= 3;
+        if (ref $$_{options} and @{ $$_{options} } >= 3) {
+            $$_{columns} = int(@{ $$_{options} } / 8) + 1;
+        }
+        #$$_{ulist} = 1 if ref $$_{options} and @{ $$_{options} } >= 3;
     }
     
@@ -532 +536 @@
                 $OUT .= qq[    <td><span class="fieldgroup">];
                 $OUT .= join(' ', map { qq[<small class="sublabel">$$_{label}</small> $$_{field} $$_{comment}] } @group_fields);
-                $OUT .= " $msg_invalid" if $$_{invalid};
+                $OUT .= " ] . $msg_invalid . q[" if $$_{invalid};
                 
                 $OUT .= qq[    </span></td>\n];