3 |
|
|
4 |
extends 'Frey'; |
extends 'Frey'; |
5 |
with 'Frey::Web'; |
with 'Frey::Web'; |
6 |
|
with 'Frey::Path'; |
7 |
|
|
8 |
use Moose::Util::TypeConstraints; |
use Moose::Util::TypeConstraints; |
9 |
|
|
130 |
|
|
131 |
if ( $self->action eq 'postpone' ) { |
if ( $self->action eq 'postpone' ) { |
132 |
my $old = $self->path; |
my $old = $self->path; |
133 |
my $new = $old . '.postponed'; |
my $new = $old; |
134 |
die "Allready have $new" if -e $new; |
$new =~ s{/([^/]+)$}{/.postponed.$1}; |
135 |
|
|
136 |
|
die "Allready have ", $self->path_size($new) if -e $new; |
137 |
$cmd = "mv $old $new && svk revert $old"; |
$cmd = "mv $old $new && svk revert $old"; |
138 |
} elsif ( $self->action ) { |
} elsif ( $self->action ) { |
139 |
my $cmd = 'svk ' . $self->action . ' ' . $self->path; |
$cmd = 'svk ' . $self->action . ' ' . $self->path; |
140 |
if ( $self->action eq 'commit' ) { |
if ( $self->action eq 'commit' ) { |
141 |
confess "need commit message" unless $self->commit_message; |
confess "need commit message" unless $self->commit_message; |
142 |
my $msg = $self->commit_message; |
my $msg = $self->commit_message; |
161 |
|
|
162 |
$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 |
163 |
|
|
|
if ( ! $self->can('html_escape') ) { |
|
|
Frey::Web->meta->apply( $self ); |
|
|
$self->TODO( "Frey::Web role missing" ); |
|
|
} |
|
|
|
|
164 |
$html .= $self->status_as_markup || 'No changes in files tracked by SVK'; |
$html .= $self->status_as_markup || 'No changes in files tracked by SVK'; |
165 |
$html .= $self->diff_as_markup; |
$html .= $self->diff_as_markup; |
166 |
|
|