/[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 594 by dpavlin, Fri Nov 28 16:53:12 2008 UTC revision 603 by dpavlin, Fri Nov 28 19:23:38 2008 UTC
# Line 7  with 'Frey::Web'; Line 7  with 'Frey::Web';
7  has commit_path => (  has commit_path => (
8          documentation => 'path to commit',          documentation => 'path to commit',
9          is => 'rw',          is => 'rw',
10          isa => 'Str',          isa => 'ArrayRef|Str',
11  );  );
12    
13  has message => (  has message => (
# Line 57  sub as_data { Line 57  sub as_data {
57  sub status_as_markup {  sub status_as_markup {
58          my ($self) = @_;          my ($self) = @_;
59          my $status = `svk status -q`;          my $status = `svk status -q`;
60          $status =~ s{^(\w+\s+)(\S+)$}{$1<a href="#$2">$2</a>}gm;          $status =~ s{^(\w+\s+)(\S+)$}{$1<input name="commit_path" value="$2" type="checkbox"><a href="#$2">$2</a>}gm;
61          $self->add_css( qq| pre.l a { text-decoration: none; } | );          if ( $status ) {
62          $status = qq|<pre class="l">$status</pre>|;                  $self->add_css( qq| pre.l a { text-decoration: none; } | );
63          $self->add_status( $status );                  $status = qq|
64                            <form>
65                            <div style="background: #ffd; float: right; padding: 1em;">
66                                    <textarea name="message" width=20 height=4></textarea>
67                                    <br><input type="submit" value="Commit">
68                            </div>
69                            <pre class="l">$status</pre>
70                            </form>
71                    |;
72                    $self->add_status( $status );
73            }
74          warn "status_as_markup ",length($status)," bytes";          warn "status_as_markup ",length($status)," bytes";
75          return $status;          return $status;
76  }  }
Legend:
Removed from v.594  
changed lines
  Added in v.603
  ViewVC Help
Powered by ViewVC 1.1.26