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

Timestamp:

01/31/05 14:58:23 (19 years ago)

Author:

peichman

Message:

added a class="fieldgroup" attr to field group spans
added a brace_block to the parser, to parse [...] with nested [...]'s

File:

• trunk/lib/Text/FormBuilder.pm (modified) (1 diff)

trunk/lib/Text/FormBuilder.pm

@@ -530 +530 @@
                 $OUT .= qq[</th>\n];
                 
-                $OUT .= qq[    <td>];
+                $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 .= qq[    </td>\n];
+                
+                $OUT .= qq[    </span></td>\n];
                 $OUT .= qq[  </tr>\n];
             }