--- trunk/lib/Frey/SVN.pm 2009/04/28 16:38:18 1071
+++ trunk/lib/Frey/SVN.pm 2009/04/28 17:04:24 1072
@@ -252,7 +252,12 @@
my $diff = $self->html_diff( $e->{diff} ) if $e->{diff};
- $html .= $self->dump( $e->{diff_paths} );
+ $self->add_css(qq|
+ .diff-lines {
+ margin-left: 1em;
+ float: right;
+ }
+ |);
$html .= qq|
@@ -265,7 +270,24 @@
map {
my $path = $_;
$path =~ s{<[^>]+>}{}g;
- qq|
$_|
+ my $diff = '';
+ if ( $diff = $e->{diff_paths}->{$path} ) {
+ $diff
+ = qq|
|
+ . join(" ",
+ map {
+ my $v = $diff->{$_};
+ s[added][+$v];
+ s[removed][-$v];
+ $_;
+ } keys %$diff
+ )
+ . qq||
+ ;
+ warn "DIFF $diff";
+ }
+
+ qq|$diff
$_|
} @files
)
. qq|