|
|
@ -331,7 +331,8 @@ sub parse { |
|
|
|
my @fn = @{ $self->{footnotes} }; |
|
|
|
my @fn = @{ $self->{footnotes} }; |
|
|
|
my @out = (); |
|
|
|
my @out = (); |
|
|
|
for (my $i = 0; $i <= $#fn; $i++) { |
|
|
|
for (my $i = 0; $i <= $#fn; $i++) { |
|
|
|
push @out, [li => {}, [a => {name => "note_" . $i + 1}], $fn[$i]]; |
|
|
|
my $name = sprintf "note_%d", $i + 1; |
|
|
|
|
|
|
|
push @out, [li => {}, [a => {name => $name}], $fn[$i]]; |
|
|
|
} |
|
|
|
} |
|
|
|
push @tree, [ol => {}, @out]; |
|
|
|
push @tree, [ol => {}, @out]; |
|
|
|
} |
|
|
|
} |
|
|
|