- Timestamp:
- 03/14/05 14:22:20 (20 years ago)
- Location:
- trunk/lib/Text
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder.pm
r67 r68 251 251 } 252 252 } 253 } 254 255 # remove false $$_{required} params because this messes up things at 256 # the CGI::FormBuilder::field level; it seems to be marking required 257 # based on the existance of a 'required' param, not whether it is 258 # true or defined 259 # TODO: check if this is still needed 260 $$_{required} or delete $$_{required} foreach @{ $self->{form_spec}{fields} }; 253 } 261 254 262 255 # assign the field names to the sections -
trunk/lib/Text/FormBuilder/grammar
r66 r68 173 173 list => $list_var, 174 174 validate => $item{'validate(?)'}[0], 175 required => $required || 0,175 required => $required, 176 176 }; 177 177 … … 191 191 192 192 $type = undef; 193 $required = 0;193 $required = undef; 194 194 $list_var = undef; 195 195 $size = undef; … … 233 233 234 234 # for simple multiword values not involving punctuation 235 simple_multiword: <skip:''> /\w[\w\t ] +/ { $item[2] }235 simple_multiword: <skip:''> /\w[\w\t ]*/ { $item[2] } 236 236 237 237 # my attempt at a single-quoted, non-interpolating string
Note: See TracChangeset
for help on using the changeset viewer.