/[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 598 by dpavlin, Fri Nov 28 18:29:59 2008 UTC revision 603 by dpavlin, Fri Nov 28 19:23:38 2008 UTC
# Line 58  sub status_as_markup { Line 58  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<input name="commit_path" value="$2" type="checkbox"><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|                  $self->add_css( qq| pre.l a { text-decoration: none; } | );
63                  <form>                  $status = qq|
64                  <div style="background: #ffd; float: right; padding: 1em;">                          <form>
65                          <textarea name="message" width=20 height=4></textarea>                          <div style="background: #ffd; float: right; padding: 1em;">
66                          <br><input type="submit" value="Commit">                                  <textarea name="message" width=20 height=4></textarea>
67                  </div>                                  <br><input type="submit" value="Commit">
68                  <pre class="l">$status</pre>                          </div>
69                  </form>                          <pre class="l">$status</pre>
70          |;                          </form>
71          $self->add_status( $status );                  |;
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.598  
changed lines
  Added in v.603
  ViewVC Help
Powered by ViewVC 1.1.26