58 |
my ($self) = @_; |
my ($self) = @_; |
59 |
my $status = `svk status -q`; |
my $status = `svk status -q`; |
60 |
$status =~ s{^(\w+\s+)(\S+)$}{$1<input name="commit_path" value="$2" type="checkbox"><a href="#$2">$2</a>}gm; |
$status =~ s{^(\w+\s+)(\S+)$}{$1<input name="commit_path" value="$2" type="checkbox"><a href="#$2">$2</a>}gm; |
61 |
$self->add_css( qq| pre.l a { text-decoration: none; } | ); |
if ( $status ) { |
62 |
$status = qq| |
$self->add_css( qq| pre.l a { text-decoration: none; } | ); |
63 |
<form> |
$status = qq| |
64 |
<div style="background: #ffd; float: right; padding: 1em;"> |
<form> |
65 |
<textarea name="message" width=20 height=4></textarea> |
<div style="background: #ffd; float: right; padding: 1em;"> |
66 |
<br><input type="submit" value="Commit"> |
<textarea name="message" width=20 height=4></textarea> |
67 |
</div> |
<br><input type="submit" value="Commit"> |
68 |
<pre class="l">$status</pre> |
</div> |
69 |
</form> |
<pre class="l">$status</pre> |
70 |
|; |
</form> |
71 |
$self->add_status( $status ); |
|; |
72 |
|
$self->add_status( $status ); |
73 |
|
} |
74 |
warn "status_as_markup ",length($status)," bytes"; |
warn "status_as_markup ",length($status)," bytes"; |
75 |
return $status; |
return $status; |
76 |
} |
} |