110 |
| ); |
| ); |
111 |
$diff =~ s{^(\+.+?)$}{<span class="add">$1</span>}gm; |
$diff =~ s{^(\+.+?)$}{<span class="add">$1</span>}gm; |
112 |
$diff =~ s{^(\-.+?)$}{<span class="del">$1</span>}gm; |
$diff =~ s{^(\-.+?)$}{<span class="del">$1</span>}gm; |
113 |
$diff =~ s{^(===\s+)(\S+)$}{$1<form class="revert"><input type="hidden" name="path" value="$2"><input type="submit" name="action" value="revert"></form> <a name="$2">$2</a>}gm; |
$diff =~ s{^(===\s+)(\S+)$}{$1<form class="revert"><input type="hidden" name="path" value="$2"><input type="submit" name="action" value="revert"></form> <a name="$2" target="editor" href="/editor+$2+1">$2</a>}gm; |
114 |
|
|
115 |
$diff = qq|<pre>$diff</pre>|; |
$diff = qq|<pre>$diff</pre>|; |
116 |
warn "diff_as_markup ",length($diff)," bytes"; |
warn "diff_as_markup ",length($diff)," bytes"; |
150 |
$self->TODO( "Frey::Web role missing" ); |
$self->TODO( "Frey::Web role missing" ); |
151 |
} |
} |
152 |
|
|
153 |
$html .= $self->status_as_markup || $self->error('no status_or_markup output'); |
$html .= $self->status_as_markup || 'No changes in files tracked by SVK'; |
154 |
$html .= $self->diff_as_markup || $self->error('no diff_as_markup output'); |
$html .= $self->diff_as_markup; |
155 |
|
|
156 |
warn "as_markup ",length($html)," bytes"; |
warn "as_markup ",length($html)," bytes"; |
157 |
|
|