[ViewVC] Diff of: cvs/deliantra/server/lib/cf/pod.pm

Comparing deliantra/server/lib/cf/pod.pm (file contents):
Revision 1.13 by root, Sun Aug 31 09:03:31 2008 UTC vs.
Revision 1.14 by root, Sat Sep 6 20:06:10 2008 UTC

 use strict;
 use base "Pod::POM::View";
-sub asxml($) {
+sub aspod($) {
    local $_ = $_[0];
    s/</E<lt>/g;
    s/>/E<gt>/g;
 }
 sub flatten($) {
    local $_ = $_[0];
-   s/<[^>]+>//g;
    s/^\s+//;
    s/\s+$//;
    s/\s+/ /g;
    $_
 }
-*view_seq_file   =
+*view_seq_file   = sub { "B<$_[1]>" };
-*view_seq_code   =
+*view_seq_code   = sub { "B<$_[1]>" };
 *view_seq_bold   = sub { "B<$_[1]>" };
 *view_seq_italic = sub { "I<$_[1]>" };
-*view_seq_zero   = sub { };
+*view_seq_zero   = sub { "Z<>" };
 *view_seq_space  = sub { my $text = $_[1]; $text =~ s/ /\xa0/g; $text };
 *view_seq_index  = sub { push @{ $result[-1]{index} }, $_[1]; "" };
 sub view_seq_text {
    my $text = $_[1];
    $text =~ s/\s+/ /g;
-   asxml $text
+   aspod $text
 }
 sub view_seq_link {
    my (undef, $link) = @_;
 sub load_pod($) {
    my ($path) = @_;
    Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path],
-      3 => sub {
+      4 => sub {
          my ($src) = @_;
          cf::fork_call {
             my $pod = $src->[0];
             utf8::decode $pod;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines