Changeset 87 in text-formbuilder for trunk/lib/Text/FormBuilder
- Timestamp:
- 06/29/05 16:02:34 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder/grammar
r84 r87 40 40 %formspec = (); # clear the old formspec data 41 41 } 42 (list_def | description_def | group_def | note | unknown_block_directive | line)(s)42 (list_def | description_def | group_def | note | fb_params | unknown_block_directive | line)(s) 43 43 { 44 44 # grab the last section, if there is any … … 53 53 54 54 $return = { 55 title => $formspec{title}, 56 author => $formspec{author}, 55 fb_params => $formspec{fb_params}, 56 title => $formspec{title}, 57 author => $formspec{author}, 57 58 description => $formspec{description}, 58 lists => \%lists,59 patterns => \%patterns,60 subs => \%subs,61 groups => \%groups,62 sections => \@sections,59 lists => \%lists, 60 patterns => \%patterns, 61 subs => \%subs, 62 groups => \%groups, 63 sections => \@sections, 63 64 ( @submit ? 64 65 (submit => @submit == 1 ? $submit[0] : \@submit) : 65 66 () 66 67 ), 67 reset => $formspec{reset},68 reset => $formspec{reset}, 68 69 } 69 70 } … … 173 174 group_name: /%[A-Z_]+/ 174 175 176 # parameters that get passed to the FB constructor; these are serialized in YAML 177 fb_params: '!fb' block 178 { $formspec{fb_params} .= $item{block}; } 179 175 180 field_group: name label(?) hint(?) group_type comment(?) 176 181 { … … 189 194 # this is the real heart of the thing 190 195 field: name field_size(?) growable(?) label(?) hint(?) type(?) multi(?) other(?) default(?) option_list(?) validate(?) comment(?) 191 { 196 { 192 197 my $field = { 193 198 name => $item{name},
Note: See TracChangeset
for help on using the changeset viewer.