Changeset 73 in text-formbuilder for trunk/lib/Text/FormBuilder/grammar
- Timestamp:
- 03/16/05 13:55:22 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder/grammar
r68 r73 152 152 group_name: /%[A-Z_]+/ 153 153 154 field_group: name label(?) group_type 155 { 154 field_group: name label(?) hint(?) group_type comment(?) 155 { 156 warn "[$thisline] comment = $item{'hint(?)'}[0]\n" if $item{'hint(?)'}[0]; 156 157 #warn "[$thisline] field $item{name} is $item{group_type}\n"; 157 push @lines, [ 'group', { name => $item{name}, label => $item{'label(?)'}[0], group => $item{group_type} } ]; 158 push @lines, [ 'group', { 159 name => $item{name}, 160 label => $item{'label(?)'}[0], 161 comment => $item{'hint(?)'}[0], 162 group => $item{group_type}, 163 } ]; 158 164 } 159 165
Note: See TracChangeset
for help on using the changeset viewer.