--- deliantra/server/lib/cf/pod.pm 2007/04/18 17:57:24 1.6 +++ deliantra/server/lib/cf/pod.pm 2007/07/03 01:10:38 1.8 @@ -195,6 +195,7 @@ }; } +# format as cfpod-style text sub as_text($) { my ($pars) = @_; @@ -202,18 +203,16 @@ for my $par (@$pars) { if ($par->{type} =~ /^head\d+$/) { - $res .= "$par->{markup}\n\n"; + $res .= "B<$par->{markup}>\n\n"; } elsif ($par->{type} eq "verbatim") { $res .= "\n$par->{markup}\n\n"; } elsif ($par->{type} eq "item") { - $res .= "\n* $par->{markup}\n\n"; + $res .= "\n* I<$par->{markup}>\n\n"; } else { - $res .= "$par->{markup}\n"; + $res .= "$par->{markup}\n\n"; } } - $res =~ s/\n\n+/\n/g; - $res }