133 |
die "Allready have $new" if -e $new; |
die "Allready have $new" if -e $new; |
134 |
$cmd = "mv $old $new && svk revert $old"; |
$cmd = "mv $old $new && svk revert $old"; |
135 |
} elsif ( $self->action ) { |
} elsif ( $self->action ) { |
136 |
my $cmd = 'svk ' . $self->action . ' ' . $self->path; |
$cmd = 'svk ' . $self->action . ' ' . $self->path; |
137 |
if ( $self->action eq 'commit' ) { |
if ( $self->action eq 'commit' ) { |
138 |
confess "need commit message" unless $self->commit_message; |
confess "need commit message" unless $self->commit_message; |
139 |
my $msg = $self->commit_message; |
my $msg = $self->commit_message; |
158 |
|
|
159 |
$self->title( 'svk' . ( $self->action ? ' - ' . $self->action : '' ) ); # XXX without this we get wrong icon and title |
$self->title( 'svk' . ( $self->action ? ' - ' . $self->action : '' ) ); # XXX without this we get wrong icon and title |
160 |
|
|
|
if ( ! $self->can('html_escape') ) { |
|
|
Frey::Web->meta->apply( $self ); |
|
|
$self->TODO( "Frey::Web role missing" ); |
|
|
} |
|
|
|
|
161 |
$html .= $self->status_as_markup || 'No changes in files tracked by SVK'; |
$html .= $self->status_as_markup || 'No changes in files tracked by SVK'; |
162 |
$html .= $self->diff_as_markup; |
$html .= $self->diff_as_markup; |
163 |
|
|