Changeset 67 in text-formbuilder for trunk/lib/Text
- Timestamp:
- 03/14/05 13:08:54 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/Text/FormBuilder.pm
r66 r67 28 28 #author, #footer { font-style: italic; } 29 29 caption h2 { padding: .125em .5em; background: #ccc; text-align: left; } 30 fieldset { margin: 1em 0; } 31 legend { font-size: 1.25em; font-weight: bold; background: #ccc; padding: .125em .25em; border: 1px solid #666; } 30 32 th { text-align: left; } 31 33 th h3 { padding: .125em .5em; background: #eee; } … … 492 494 <% 493 495 SECTION: while (my $section = shift @sections) { 496 $OUT .= qq[<fieldset>\n]; 497 $OUT .= qq[ <legend>$$section{head}</legend>] if $$section{head}; 494 498 $OUT .= qq[<table id="] . ($$section{id} || '_default') . qq[">\n]; 495 $OUT .= qq[ <caption><h2 class="sectionhead">$$section{head}</h2></caption>] if $$section{head};499 #$OUT .= qq[ <caption><h2 class="sectionhead">$$section{head}</h2></caption>] if $$section{head}; 496 500 TABLE_LINE: for my $line (@{ $$section{lines} }) { 497 501 if ($$line[0] eq 'head') { … … 542 546 # close the table if there are sections remaining 543 547 # but leave the last one open for the submit button 544 $OUT .= qq[</table>\n] if @sections; 548 if (@sections) { 549 $OUT .= qq[</table>\n]; 550 $OUT .= qq[</fieldset>\n]; 551 } 545 552 } 546 553 %> 554 <tr><td colspan="2"><hr /></td></tr> 547 555 <tr><th></th><td style="padding-top: 1em;"><% $submit %></td></tr> 548 556 </table> 557 </fieldset> 549 558 <% $end %> 550 559 ];
Note: See TracChangeset
for help on using the changeset viewer.