/[Frey]/trunk/lib/Frey/SVK.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/SVK.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 637 by dpavlin, Sun Nov 30 14:43:44 2008 UTC revision 681 by dpavlin, Tue Dec 2 17:34:23 2008 UTC
# Line 3  use Moose; Line 3  use Moose;
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    
# Line 129  sub as_markup { Line 130  sub as_markup {
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;
# Line 158  sub as_markup { Line 161  sub as_markup {
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    
Legend:
Removed from v.637  
changed lines
  Added in v.681
  ViewVC Help
Powered by ViewVC 1.1.26