--- deliantra/Deliantra-Client/bin/pod2wiki	2008/03/30 04:59:43	1.13
+++ 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<span foreground='#ffff00' size='x-large'>$title</span>\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<span foreground='#ccccff' size='large'>$title</span>\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<span size='large'>$title</span>\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]);
@@ -220,7 +220,6 @@
    $pod->[N_DOC]    = $para;
 
    my @parent = ($pod);
-   add_node $pod;
 
    for my $idx (0 .. $#$para) {
       my $par = $para->[$idx];
@@ -240,8 +239,11 @@
          add_node $node;
       }
    }
+
+   add_node $pod;
 }
 
+add_node $root;
+
 Storable::nstore \%wiki, "docwiki.pst";
 
-add_node $root;