--- trunk/lib/Frey/SVK.pm	2008/11/29 01:01:14	615
+++ trunk/lib/Frey/SVK.pm	2008/11/29 16:17:18	620
@@ -19,7 +19,7 @@
 	isa => 'Str',
 );
 
-has message => (
+has commit_message => (
 	documentation => 'commit message',
 	is => 'rw',
 	isa => 'Str',
@@ -84,7 +84,7 @@
 		$status = qq|
 			<div class="commit">
 				<form>
-				<textarea name="message" cols=40 rows=4></textarea>
+				<textarea name="commit_message" cols=40 rows=4></textarea>
 				<br><input type="submit" name="action" value="commit">
 				</form>
 			</div>
@@ -110,7 +110,7 @@
 	| );
 	$diff =~ s{^(\+.+?)$}{<span class="add">$1</span>}gm;
 	$diff =~ s{^(\-.+?)$}{<span class="del">$1</span>}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">$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;
 
 	$diff = qq|<pre>$diff</pre>|;
 	warn "diff_as_markup ",length($diff)," bytes";
@@ -125,8 +125,8 @@
 	if ( $self->action ) {
 		my $cmd = 'svk ' . $self->action . ' ' . $self->path;
 		if ( $self->action eq 'commit' ) {
-			confess "need message" unless $self->message;
-			my $msg = $self->message;
+			confess "need commit message" unless $self->commit_message;
+			my $msg = $self->commit_message;
 			$msg =~ s{"}{\\"}gs;
 			$cmd .= qq{ -m "$msg"};
 		} else {
@@ -150,8 +150,8 @@
 		$self->TODO( "Frey::Web role missing" );
 	}
 
-	$html .= $self->status_as_markup || $self->error('no status_or_markup output');
-	$html .= $self->diff_as_markup   || $self->error('no diff_as_markup output');
+	$html .= $self->status_as_markup || 'No changes in files tracked by SVK';
+	$html .= $self->diff_as_markup;
 
 	warn "as_markup ",length($html)," bytes";