Changeset 88 in text-formbuilder for trunk/lib/Text/FormBuilder
- Timestamp:
- 06/29/05 16:46:56 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder/grammar
r87 r88 37 37 38 38 form_spec: 39 { 40 %formspec = (); # clear the old formspec data 39 { 40 # clear out old data, so we don't end up with old data in new objects 41 @lines = (); 42 @sections = (); 43 %formspec = (); 41 44 } 42 45 (list_def | description_def | group_def | note | fb_params | unknown_block_directive | line)(s) … … 52 55 } 53 56 57 # make copies instead of taking references, again so we 58 # don't end up with connections between objects 54 59 $return = { 55 60 fb_params => $formspec{fb_params}, … … 57 62 author => $formspec{author}, 58 63 description => $formspec{description}, 59 lists => \%lists, 60 patterns => \%patterns, 61 subs => \%subs, 62 groups => \%groups, 63 sections => \@sections, 64 ( @submit ? 65 (submit => @submit == 1 ? $submit[0] : \@submit) : 66 () 67 ), 64 lists => { %lists }, 65 patterns => { %patterns }, 66 subs => { %subs }, 67 groups => { %groups }, 68 sections => [ @sections ], 69 ( @submit ? (submit => @submit == 1 ? $submit[0] : [ @submit ]) : () ), 68 70 reset => $formspec{reset}, 69 71 } … … 233 235 @options = (); 234 236 237 #warn "$$field{name}: $field"; 238 235 239 $field; 236 240 }
Note: See TracChangeset
for help on using the changeset viewer.