67 |
my ($self) = @_; |
my ($self) = @_; |
68 |
my $status = `svk status -q`; |
my $status = `svk status -q`; |
69 |
# $status =~ s{^(\w+\s+)(\S+)$}{$1<input name="commit_path" value="$2" type="checkbox"><a href="#$2">$2</a>}gm; # FIXME |
# $status =~ s{^(\w+\s+)(\S+)$}{$1<input name="commit_path" value="$2" type="checkbox"><a href="#$2">$2</a>}gm; # FIXME |
70 |
$status =~ s{^(\w+\s+)(\S+)$}{$1<a href="#$2">$2</a>}gm; |
$status =~ s{^(\w+[\+\s]+)(\S+)$}{$1<a href="#$2">$2</a>}gm; |
71 |
if ( $status ) { |
if ( $status ) { |
72 |
$self->add_css(qq| |
$self->add_css(qq| |
73 |
pre.l a { text-decoration: none; } |
pre.l a { text-decoration: none; } |