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

Comparing deliantra/server/lib/cf/pod.pm (file contents):
Revision 1.28 by root, Tue Nov 13 01:12:23 2012 UTC vs.
Revision 1.31 by root, Wed Nov 21 12:47:04 2012 UTC

 *view_seq_T      = sub { "T<$_[1]>" };
 *view_seq_G      = sub { "G<$_[1]>" };
 *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]; "" };
+#view_seq_entity
 sub view_seq_text {
    my $text = $_[1];
    $text =~ s/\s+/ /g;
    aspod $text
    my $text = $link =~ s/^(.*)\|// ? $1 : $link;
    if ($link =~ /http:/) {
       "U<" . (aspod $link) . ">"
    } else {
-      ()
+      aspod $text
    }
 }
 sub view_item {
    push @result, {
 package cf::pod;
 sub pom_as_paragraphs_ng($) {
    my ($pom) = @_;
+   # we suckers use global variables, unfortunately.
    local $indent = 0;
    local $level  = 1;
    local @result = ( { } );
    $pom->present ("cf::pod::AsParagraphs");
 }
 sub pom_as_paragraphs($) {
    my ($pom) = @_;
-   # we suckers use global variables, unfortunately.
    my $guard = cf::lock_acquire "cf::pod::as_paragraphs";
    $pom->pom_as_paragraphs_ng
 }
 sub load_pod($) {
    my ($path) = @_;
    Coro::Storable::thaw cf::cache "cf::pod::as_paragraphs/$path" => [$path],
-      8 => sub {
+      9 => sub {
          my ($src) = @_;
          cf::fork_call {
             Coro::Storable::blocking_nfreeze
                pom_as_paragraphs_ng

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