Changeset 70 in text-formbuilder
- Timestamp:
- 03/15/05 12:59:51 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder.pm
r69 r70 150 150 151 151 # expand groups 152 if (my %groups = %{ $self->{form_spec}{groups} || {} }) { 152 if (my %groups = %{ $self->{form_spec}{groups} || {} }) { 153 153 for my $section (@{ $self->{form_spec}{sections} || [] }) { 154 154 foreach (grep { $$_[0] eq 'group' } @{ $$section{lines} }) { … … 327 327 # pass in the variable name of the form object 328 328 # (defaults to '$form') 329 # TODO: revise this code to use the new 'fieldopts' 330 # option to the FB constructor (requires FB 3.02) 329 331 sub _field_setup_code { 330 332 my $self = shift; … … 521 523 522 524 $OUT .= ' <th class="label">'; 523 $OUT .= (grep { $$_{required} } @group_fields) ? qq[<strong class="required">$$line[1]{label} :</strong>] : "$$line[1]{label}:";525 $OUT .= (grep { $$_{required} } @group_fields) ? qq[<strong class="required">$$line[1]{label}</strong>] : "$$line[1]{label}"; 524 526 $OUT .= qq[</th>\n]; 525 527 … … 775 777 =head2 write_module 776 778 779 I<B<Note:> The code output from the C<write_*> methods may be in flux for 780 the next few versions, as I coordinate with the B<FormBuilder> project.> 781 777 782 $parser->write_module($package, $use_tidy); 778 783 … … 886 891 887 892 method => 'GET' 888 javascript => 0889 893 keepextras => 1 890 894 … … 913 917 ... 914 918 } 915 916 !list NAME &{ CODE }917 919 918 920 !group NAME { … … 1185 1187 Make the generated modules into subclasses of CGI::FormBuilder 1186 1188 1189 Revise the generated form constructing code to use the C<fieldopts> 1190 option to C<< FB->new >>; will require FB 3.02 to run. 1191 1187 1192 Better integration with L<CGI::FormBuilder>'s templating system 1188 1193
Note: See TracChangeset
for help on using the changeset viewer.