- Timestamp:
- 03/15/05 16:39:29 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder.pm
r70 r71 32 32 #author, #footer { font-style: italic; } 33 33 caption h2 { padding: .125em .5em; background: #ccc; text-align: left; } 34 fieldset { margin: 1em 0; }34 fieldset { margin: 1em 0; border: none; border-top: 2px solid #999; } 35 35 legend { font-size: 1.25em; font-weight: bold; background: #ccc; padding: .125em .25em; border: 1px solid #666; } 36 36 th { text-align: left; } 37 th h 3 { padding: .125em .5em; background: #eee; }37 th h2 { padding: .125em .5em; background: #eee; font-size: 1.25em; } 38 38 th.label { font-weight: normal; text-align: right; vertical-align: top; } 39 39 td ul { list-style: none; padding-left: 0; margin-left: 0; } 40 .note { background: #eee; }40 .note { background: #eee; padding: .5em 1em; } 41 41 .sublabel { color: #999; } 42 42 .invalid { background: red; } … … 491 491 TABLE_LINE: for my $line (@{ $$section{lines} }) { 492 492 if ($$line[0] eq 'head') { 493 $OUT .= qq[ <tr><th class="subhead" colspan="2"><h 3>$$line[1]</h3></th></tr>\n]493 $OUT .= qq[ <tr><th class="subhead" colspan="2"><h2>$$line[1]</h2></th></tr>\n] 494 494 } elsif ($$line[0] eq 'note') { 495 495 $OUT .= qq[ <tr><td class="note" colspan="2">$$line[1]</td></tr>\n] … … 543 543 } 544 544 %> 545 <tr><td colspan="2"><hr /></td></tr>546 545 <tr><th></th><td style="padding-top: 1em;"><% $submit %></td></tr> 547 546 </table> … … 1003 1002 field_3|'\'Official\' title' 1004 1003 1004 Quoted strings are also how you can set the label for a field to be blank: 1005 1006 unlabeled_field|'' 1007 1005 1008 Now, back to the beginning. Form fields are each described on a single line. 1006 1009 The simplest field is just a name (which cannot contain any whitespace):
Note: See TracChangeset
for help on using the changeset viewer.