/[Frey]/branches/no-pager/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 /branches/no-pager/lib/Frey/SVK.pm

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

revision 737 by dpavlin, Wed Dec 3 21:12:43 2008 UTC revision 738 by dpavlin, Sat Dec 6 15:29:10 2008 UTC
# Line 64  sub as_data { Line 64  sub as_data {
64          }          }
65  }  }
66    
 sub checkbox {  
         my ($self,$name,$value) = @_;  
         my $checked = '';  
         my $all_checkboxes = $self->$name;  
         $all_checkboxes = [ $all_checkboxes ] unless ref($all_checkboxes) eq 'ARRAY'; # sigh, too chatty  
         $checked = ' checked' if grep { $_ eq $value } @$all_checkboxes;  
         warn "# checkbox $name $value $checked\t", $self->dump( $self->$name );  
         qq|<input name="$name" value="$value" type="checkbox"$checked>|;  
 }  
   
67  sub commit_as_markup {  sub commit_as_markup {
68          my ($self) = @_;          my ($self) = @_;
69          my $status = `svk status -q`;          my $status = `svk status -q`;
# Line 88  sub commit_as_markup { Line 78  sub commit_as_markup {
78                                  top: 1em;                                  top: 1em;
79                                  right: 1em;                                  right: 1em;
80                                  z-index: 10;                                  z-index: 10;
81                                    opacity: .2;
82                                    filter: alpha(opacity=20);
83                            }
84                            form.commit:hover {
85                                    opacity: 1;
86                                    filter: alpha(opacity=100);
87                          }                          }
88                  | );                  | );
89    
# Line 121  sub diff_as_markup { Line 117  sub diff_as_markup {
117          $diff =~ s{^(\-.+?)$}{<span class="del">$1</span>}gm;          $diff =~ s{^(\-.+?)$}{<span class="del">$1</span>}gm;
118          sub form {          sub form {
119                  my ( $path, $action ) = @_;                  my ( $path, $action ) = @_;
120                  qq|<form class="inline"><input type="hidden" name="path" value="$path"><input type="submit" name="action" value="$action"></form>|;                  qq|<form class="inline" method="post"><input type="hidden" name="path" value="$path"><input type="submit" name="action" value="$action"></form>|;
121          };          };
122          $diff =~ s{^(===\s+)(\S+)$}{$1 . form($2,'revert') . qq| <a name="$2" target="editor" href="/editor+$2+1">$2</a> | . form($2,'postpone') }gem;          $diff =~ s{^(===\s+)(\S+)$}{$1 . form($2,'revert') . qq| <a name="$2" target="editor" href="/editor+$2+1">$2</a> | . form($2,'postpone') }gem;
123    
# Line 151  sub action_as_markup { Line 147  sub action_as_markup {
147                  } else {                  } else {
148                          confess "need path" unless $self->path;                          confess "need path" unless $self->path;
149                  }                  }
150                  $cmd .= ' ' . join(' ',$self->path);  
151                    my @paths = eval { @{ $self->path } }; # XXX sigh!
152                    @paths = ( $self->path ) unless @paths;
153                    warn "# path ", $self->dump( @paths );
154    
155                    $cmd .= ' ' . join( ' ',@paths );
156          }          }
157          if ( $cmd ) {          if ( $cmd ) {
158                  $cmd .= ' 2>&1';                  $cmd .= ' 2>&1';
# Line 162  sub action_as_markup { Line 163  sub action_as_markup {
163    
164                  return qq|                  return qq|
165                          Command <tt>$cmd</tt> produced output:                          Command <tt>$cmd</tt> produced output:
166                          <pre style="background: #ff8;">                          <pre style="background: #ff8;">$out</pre>
                         $out  
                         </pre>  
167                  |;                  |;
168          }          }
169    
Legend:
Removed from v.737  
changed lines
  Added in v.738
  ViewVC Help
Powered by ViewVC 1.1.26