1<?
2
3my ($content, @title) = @_;
4my $ctx = $main::context;
5
6?>
7? if (@title) {
8.SH <?= uc $title[-1] ?>
9? }
10
11?= $ctx->{unhtmlize}->($content)
12
13? if (my @notes = @{$ctx->{notes}}) {
14.SS Notes:
15.PP
16? for (my $index = 0; $index < @notes; ++$index) {
17[<?= $index + 1 ?>]<?= $notes[$index] ?>
18? }
19? }
20