--- deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 02:43:23	1.1
+++ deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 03:20:56	1.2
@@ -70,8 +70,8 @@
       level  => $level,
    };
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "$title\n\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1]{markup} = "$title\n\n" if length $title;
+   $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
@@ -101,8 +101,8 @@
       level  => $level,
    };
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1]{markup} = "\n\n<span foreground='#ffff00' size='x-large'>$title</span>\n" if length $title;
+   $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
@@ -114,8 +114,8 @@
       level  => $level,
    };
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1]{markup} = "\n\n<span foreground='#ccccff' size='large'>$title</span>\n" if length $title;
+   $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
@@ -127,8 +127,8 @@
       level  => $level,
    };
    my $title = $_[1]->title->present ($_[0]);
-   $result[-1]{markup} = "\n\n<span size='large'>$title</span>\n";
-   unshift @{ $result[-1]{index} }, ::flatten $title;
+   $result[-1]{markup} = "\n\n<span size='large'>$title</span>\n" if length $title;
+   $title = ::flatten $title; unshift @{ $result[-1]{index} }, $title if length $title;
    local $level = $level + 1;
    $_[1]->content->present ($_[0]);
    ()
@@ -164,13 +164,13 @@
 sub as_paragraphs($) {
    my ($pom) = @_;
 
-   local @result = ( { } );
    local $indent = 0;
    local $level  = 1;
+   local @result = ( { } );
 
    $pom->present ("AsParagraphs");
 
-   [grep exists $_->{markup}, @result]
+   [grep $_->{index} || exists $_->{markup}, @result]
 }
 
 #############################################################################