/[Frey]/trunk/lib/Frey/SVK.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/SVK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 585 by dpavlin, Fri Nov 28 13:26:08 2008 UTC revision 591 by dpavlin, Fri Nov 28 16:39:37 2008 UTC
# Line 61  sub status_as_markup { Line 61  sub status_as_markup {
61          $self->add_css( qq| pre.l a { text-decoration: none; } | );          $self->add_css( qq| pre.l a { text-decoration: none; } | );
62          $status = qq|<pre class="l">$status</pre>|;          $status = qq|<pre class="l">$status</pre>|;
63          $self->add_status( $status );          $self->add_status( $status );
64            warn "status_as_markup ",length($status)," bytes";
65          return $status;          return $status;
66  }  }
67    
# Line 79  sub diff_as_markup { Line 80  sub diff_as_markup {
80          $diff =~ s{^(===\s+)(\S+)$}{$1<a name="$2">$2</a>}gm;          $diff =~ s{^(===\s+)(\S+)$}{$1<a name="$2">$2</a>}gm;
81    
82          $diff = qq|<pre>$diff</pre>|;          $diff = qq|<pre>$diff</pre>|;
83            warn "diff_as_markup ",length($diff)," bytes";
84          return $diff;          return $diff;
85  }  }
86    
# Line 91  sub as_markup { Line 93  sub as_markup {
93          }          }
94    
95          my $html = $self->status_as_markup . $self->diff_as_markup;          my $html = $self->status_as_markup . $self->diff_as_markup;
96          warn "html ",length($html)," bytes";          warn "as_markup ",length($html)," bytes";
97    
98          return $html;          return $html;
99  }  }
Legend:
Removed from v.585  
changed lines
  Added in v.591
  ViewVC Help
Powered by ViewVC 1.1.26