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 ($) { |