--- trunk/lib/Frey/SVN.pm 2008/12/17 18:38:49 874 +++ trunk/lib/Frey/SVN.pm 2008/12/17 19:40:31 875 @@ -91,7 +91,7 @@ my $xml = XMLin($log, ForceArray => [ 'logentry', 'path' ]); foreach my $e (@{$xml->{'logentry'}}) { - warn "# e = ",$self->dump( $e ); + warn "# e = ",$self->dump( $e ) if $self->debug; $coderef->($e); } } @@ -108,7 +108,7 @@ $foo =~ s//>/g; $foo =~ s/"/"/g; - $foo =~ s/([\n\r][\n\r]+)/<\/p>$1

/gis; + $foo =~ s/([\n\r][\n\r]+)/$1/gis; $foo =~ s/([\n\r]+)([\-\*]\s+)/$1$2/gis; $foo =~ s/([\n\r]+)(r\d+:\s+)/$1$2/gis; $foo =~ s/([\n\r]+)(\s+r\d+@)/$1$2/gis; # svk @@ -118,7 +118,7 @@ our $html = ''; $self->add_css(qq| - .files { color: #888; } + .files { color: #888; font-family: monospace; } .date, .revision { color: #666; } .message { padding-bottom: 0.5em; } @@ -135,7 +135,7 @@ $date =~ s/T/ /; $date =~ s/\.\d+Z$//; - $html .= qq|

$date $e->{author} $e->{revision}
|; + $html .= qq|
$date $e->{author} $e->{revision}
\n|; my $msg = $e->{'msg'}; $msg = '' if ref($msg); # FIXME why do I need this, dammit? @@ -158,7 +158,7 @@ } } - $html .= qq|
$msg
| . join(", ",@files) . qq|
|; + $html .= qq|
\n$msg\n
\n| . join(",\n",@files) . qq|\n
\n
|; });