/[Frey]/trunk/lib/Frey/SVN.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/SVN.pm

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

revision 1071 by dpavlin, Mon Apr 27 21:06:40 2009 UTC revision 1072 by dpavlin, Tue Apr 28 17:04:24 2009 UTC
# Line 252  sub as_markup { Line 252  sub as_markup {
252    
253                  my $diff = $self->html_diff( $e->{diff} ) if $e->{diff};                  my $diff = $self->html_diff( $e->{diff} ) if $e->{diff};
254    
255                  $html .= $self->dump( $e->{diff_paths} );                  $self->add_css(qq|
256                            .diff-lines {
257                                    margin-left: 1em;
258                                    float: right;
259                            }
260                    |);
261    
262                  $html .= qq|                  $html .= qq|
263                          <div class="commit">                          <div class="commit">
# Line 265  sub as_markup { Line 270  sub as_markup {
270                                          map {                                          map {
271                                                  my $path = $_;                                                  my $path = $_;
272                                                  $path =~ s{<[^>]+>}{}g;                                                  $path =~ s{<[^>]+>}{}g;
273                                                  qq|<a href="?repository=$repository;path=$path" title="$path ##">$_</a>|                                                  my $diff = '';
274                                                    if ( $diff = $e->{diff_paths}->{$path} ) {
275                                                            $diff
276                                                            = qq|<span class="diff-lines">|
277                                                            . join(" ",
278                                                                    map {
279                                                                            my $v = $diff->{$_};
280                                                                            s[added][+$v];
281                                                                            s[removed][-$v];
282                                                                            $_;
283                                                                    } keys %$diff
284                                                            )
285                                                            . qq|</span>|
286                                                            ;
287                                                            warn "DIFF $diff";
288                                                    }
289    
290                                                    qq|$diff<a href="?repository=$repository;path=$path" title="$path ##">$_</a>|
291                                          } @files                                          } @files
292                                  )                                  )
293                                  . qq|                                  . qq|
Legend:
Removed from v.1071  
changed lines
  Added in v.1072
  ViewVC Help
Powered by ViewVC 1.1.26