--- trunk/lib/Frey/VCI.pm 2008/11/25 13:53:53 513 +++ trunk/lib/Frey/VCI.pm 2008/11/25 14:09:50 515 @@ -5,10 +5,9 @@ use lib '/rest/cvs/vci/lib'; # FIXME use VCI; -use HTML::Entities qw/encode_entities/; - extends 'Frey'; with 'Frey::Web'; +with 'Frey::Escape'; use Data::Dump qw/dump/; @@ -39,19 +38,6 @@ documentation => 'last revision in repository if not specified', ); -sub pre_dump { - my $o = shift; - # because Data::Dumper::HTML sucks - my $t; - if ( blessed($o) && $o->can('dump') ) { - $t = $o->dump; - $t =~ s/ {8}/ /gm; - } else { - $t = dump( $o ); - } - return '
' . encode_entities($t) . '
' . encode_entities( $diff->raw ) . '' . - pre_dump( $diff ); + '
' . $self->html_escape( $diff->raw ) . '' . + 'dump
' . $self->html_dump( $diff ) . '
';
$self->title( $self->repo . '/' . $project->name );
return $body;