--- deliantra/Deliantra-Client/bin/pod2wiki 2008/03/30 10:18:16 1.14
+++ deliantra/Deliantra-Client/bin/pod2wiki 2008/03/30 11:31:09 1.15
@@ -106,7 +106,7 @@
sub view_head1 {
push @result, [ $indent * 16, $level ];
my $title = $_[1]->title->present ($_[0]);
- $result[-1][P_MARKUP] = "\n\n$title\n" if length $title;
+ $result[-1][P_MARKUP] = ::special h1 => $title if length $title;
$title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
local $level = $level + 1;
$_[1]->content->present ($_[0]);
@@ -116,7 +116,7 @@
sub view_head2 {
push @result, [ $indent * 16, $level ];
my $title = $_[1]->title->present ($_[0]);
- $result[-1][P_MARKUP] = "\n\n$title\n" if length $title;
+ $result[-1][P_MARKUP] = ::special h2 => $title if length $title;
$title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
local $level = $level + 1;
$_[1]->content->present ($_[0]);
@@ -126,7 +126,7 @@
sub view_head3 {
push @result, [ $indent * 16, $level ];
my $title = $_[1]->title->present ($_[0]);
- $result[-1][P_MARKUP] = "\n\n$title\n" if length $title;
+ $result[-1][P_MARKUP] = ::special h3 => $title if length $title;
$title = ::flatten $title; unshift @{ $result[-1][P_INDEX] }, $title if length $title;
local $level = $level + 1;
$_[1]->content->present ($_[0]);