Changeset 56 in text-formbuilder

Timestamp:

01/13/05 15:00:25 (20 years ago)

Author:

peichman

Message:

single-line textfields can be given a maxlength

Location:

trunk

Files:

• Changes (modified) (1 diff)
• lib/Text/FormBuilder.pm (modified) (2 diffs)
• lib/Text/FormBuilder/grammar (modified) (4 diffs)

trunk/Changes

@@ -1 +1 @@
 Release history for Text::FormBuilder.
 
+0.09
+    * single-line textfields can be given a maxlength
+    
 0.08 - 10 Jan 2005
     * failure to load Perl::Tidy is no longer fatal

trunk/lib/Text/FormBuilder.pm

@@ -624 +624 @@
 =head1 REQUIRES
 
-L<Parse::RecDescent>, L<CGI::FormBuilder>, L<Text::Template>
+L<Parse::RecDescent>,
+L<CGI::FormBuilder>,
+L<Text::Template>,
+L<Class::Base>
 
 =head1 DESCRIPTION
@@ -1043 +1046 @@
     description[4,30]:textarea
 
+To also set the C<maxlength> attribute for text fields, add a C<!> after
+the size:
+
+    # ensure that all titles entered are 40 characters or less
+    title[40!]:text
+
+This currently only works for single line text fields.
+    
 For the input types that can have options (C<select>, C<radio>, and
 C<checkbox>), here's how you do it:

trunk/lib/Text/FormBuilder/grammar

@@ -19 +19 @@
         $list_var,
         $size,
+        $maxlength,
         $rows,
         $cols,
@@ -157 +158 @@
         $$field{cols} = $cols if defined $cols;
         $$field{size} = $size if defined $size;
+        $$field{maxlength} = $maxlength if defined $maxlength;
         
         #warn "[$thisline] field $item{name}; context $context\n";
@@ -171 +173 @@
         $rows = undef;
         $cols = undef;
+        $maxlength = undef;
         @options = ();
         
@@ -181 +184 @@
 field_size: '[' ( row_col | size ) ']'
 
-size: /\d+/
-    { $size = $item[1] }
+size: /\d+/ bang(?)
+    { $maxlength = $item[1] if $item[2][0]; $size = $item[1] }
+
+bang: '!'
 
 row_col: /\d+/ /,\s*/ /\d+/