| 124 |
|
|
| 125 |
my $out = $self->output; |
my $out = $self->output; |
| 126 |
my $i = 1; |
my $i = 1; |
| 127 |
$out->start_section (id => 'source-string', title => 'Document Source', |
$out->start_section (role => 'source'); |
|
short_title => 'Source'); |
|
| 128 |
$out->start_tag ('ol', lang => ''); |
$out->start_tag ('ol', lang => ''); |
| 129 |
|
|
| 130 |
if (length $$s) { |
if (length $$s) { |
| 142 |
} |
} |
| 143 |
$out->end_tag ('ol'); |
$out->end_tag ('ol'); |
| 144 |
$out->add_source_to_parse_error_list ('parse-errors-list'); |
$out->add_source_to_parse_error_list ('parse-errors-list'); |
| 145 |
$out->end_section |
$out->end_section; |
| 146 |
} # generate_source_string_section |
} # generate_source_string_section |
| 147 |
|
|
| 148 |
sub generate_additional_sections ($) { |
sub generate_additional_sections ($) { |