--- 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]);