Changeset 74 in text-formbuilder for trunk/lib/Text/FormBuilder
- Timestamp:
- 03/16/05 16:16:30 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder/grammar
r73 r74 146 146 147 147 group_field: '!field' group_name name label(?) 148 { 148 { 149 warn "[Text::FormBuilder] The !field directive has been DEPRECATED (input file line $thisline). Please use the name:GROUP style"; 149 150 push @lines, [ 'group', { name => $item{name}, label => $item{'label(?)'}[0], group => $item{group_name} } ]; 150 151 } … … 154 155 field_group: name label(?) hint(?) group_type comment(?) 155 156 { 156 warn "[$thisline] comment = $item{'hint(?)'}[0]\n" if $item{'hint(?)'}[0];157 #warn "[$thisline] comment = $item{'hint(?)'}[0]\n" if $item{'hint(?)'}[0]; 157 158 #warn "[$thisline] field $item{name} is $item{group_type}\n"; 158 159 push @lines, [ 'group', {
Note: See TracChangeset
for help on using the changeset viewer.