--- trunk/lib/Frey/SVN.pm 2009/01/10 18:53:15 986
+++ trunk/lib/Frey/SVN.pm 2009/01/10 21:42:00 987
@@ -20,6 +20,11 @@
default => 'file:///home/dpavlin/private/svn/Frey',
);
+has path => (
+ is => 'rw',
+ isa => 'Str'
+);
+
has limit => (
is => 'rw',
isa => 'Int',
@@ -48,7 +53,7 @@
return;
}
- my $path = $self->repository;
+ my $path = $self->repository . $self->path;
warn "# path $path\n";
my $cmd;
@@ -115,7 +120,13 @@
return $foo;
}
- our $html = qq|
| . $self->repository . qq|
|;
+ my $repository = $self->repository;
+ my $path = $self->path;
+
+ our $html = qq|
+
+ $path
+ |;
$self->add_css(qq|
.commit {
@@ -131,6 +142,10 @@
float: right;
padding-bottom: 1.2em; /* fix 80% back to original 1em */
}
+ .files a {
+ text-decoration: none;
+ color: #888;
+ }
.date, .revision { color: #666; }
.message {
padding-top: 0.5em;
@@ -174,11 +189,19 @@
$html .= qq|
-
$date
-
$e->{author}
-
$e->{revision}
-
\n| . join("
\n",@files) . qq|\n
- $msg
+
$date
+
$e->{author}
+
$e->{revision}
+
\n
+ |
+ . join("
\n",
+ map {
+ qq|
$_|
+ } @files
+ )
+ . qq|
+
+ $msg
|;