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

Timestamp:

05/11/05 14:06:05 (20 years ago)

Author:

peichman

Message:

BUGFIX: typo in write_module where params were not getting passed in
reverted to FB style required field marking

File:

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

trunk/lib/Text/FormBuilder.pm

@@ -47 +47 @@
     text_author   => 'Created by %s',
     text_madewith => 'Made with %s version %s',
-    text_required => '* denotes a <strong>required field</strong>.',
+    text_required => 'Fields that are <strong>highlighted</strong> are required.',
     text_invalid  => 'Missing or invalid value.',
 );
@@ -438 +438 @@
 
 sub write_module {
-    my ($self, $package, $use_tidy);
+    my ($self, $package, $use_tidy) = @_;
     
     my $module = $self->as_module($package, $use_tidy);
     
-    _write_output_file($module, (split(/::/, $package))[-1] . '.pm');
+    my $outfile = (split(/::/, $package))[-1];
+    $outfile .= '.pm' unless $outfile =~ /\.pm$/;
+    _write_output_file($module, $outfile);
     return $self;
 }
@@ -558 +560 @@
                     $OUT .= qq[<td></td>];
                 } else {
-                    $OUT .= '<td class="label">' . ($$_{required} ? qq[* <strong class="required">$$_{label}</strong>] : "$$_{label}") . '</td>';
+                    $OUT .= '<td class="label">' . ($$_{required} ? qq[<strong class="required">$$_{label}</strong>] : "$$_{label}") . '</td>';
                 }
                 
@@ -575 +577 @@
                 
                 $OUT .= '    <td class="label">';
-                $OUT .= (grep { $$_{required} } @group_fields) ? qq[* <strong class="required">$$line[1]{label}</strong>] : "$$line[1]{label}";
+                $OUT .= (grep { $$_{required} } @group_fields) ? qq[<strong class="required">$$line[1]{label}</strong>] : "$$line[1]{label}";
                 $OUT .= qq[</td>\n];
                 
@@ -1289 +1291 @@
 =head2 Language/Parser
 
-Debug flag (that sets/unsets C<$::RD_TRACE> in the parser)
+Support the C<multiple> attribute for a field.
 
 Make sure that multiple runs of the parser don't share data.
@@ -1306 +1308 @@
 =head2 Code generation/Templates
 
-Expose some of the currently private functions to be able to get the generated
-code text directly, without printing.
-
 Revise the generated form constructing code to use the C<fieldopts>
 option to C<< FB->new >>; will require FB 3.02 to run.