--- deliantra/Deliantra-Client/DC/Pod.pm	2006/08/13 02:43:22	1.4
+++ deliantra/Deliantra-Client/DC/Pod.pm	2006/08/13 14:30:06	1.6
@@ -4,8 +4,6 @@
 
 use Storable;
 
-use CFPlus::UI;
-
 our $VERSION = 1;
 
 our %wiki;
@@ -60,17 +58,19 @@
    do {
       my $p = $doc->[$par];
 
-      my %para = (
-         markup => $p->{markup},
-         indent => $p->{indent},
-      );
-
-      for (@{ $p->{widget} || [] }) {
-         my ($class, @args) = @$_;
-         push @{ $para{widget} }, $class->new (@args);
-      }
+      if (exists $p->{markup}) {
+         my %para = (
+            markup => $p->{markup},
+            indent => $p->{indent},
+         );
+
+         for (@{ $p->{widget} || [] }) {
+            my ($class, @args) = @$_;
+            push @{ $para{widget} }, $class->new (@args);
+         }
 
-      push @res, \%para;
+         push @res, \%para;
+      }
    } while $doc->[++$par]{level} > $lvl;
 
    @res
@@ -81,9 +81,19 @@
 }
 
 sub as_label(@) {
-   join "\n",
-      map +("\xa0" x ($_->{indent} / 4)) . $_->{markup},
-         @_
+   my $text =
+      join "\n",
+         map +("\xa0" x ($_->{indent} / 4)) . $_->{markup},
+            @_;
+
+   $text =~ s/^\s+//;
+   $text =~ s/\s+$//;
+
+   $text
+}
+
+sub section_label(@) {
+   as_label &section
 }
 
 1