[Openinteract-commits] CVS: OpenInteract2/pkg/comments/OpenInteract2/Action Comments.pm,1.12,1.13

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13608/OpenInteract2/Action

Modified Files:
	Comments.pm 
Log Message:
OIN-128: ensure lines don't get too long...


Index: Comments.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action/Comments.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Comments.pm	28 Feb 2005 01:43:53 -0000	1.12
--- Comments.pm	28 Feb 2005 01:56:12 -0000	1.13
***************
*** 17,20 ****
--- 17,22 ----
  my ( $log );
  
+ my $DEFAULT_ECODE_LINE_LENGTH = 70;
+ 
  # Display some summary info (plus a link) for an object
  
***************
*** 387,391 ****
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }
--- 389,394 ----
      $count = 1;
      foreach my $section ( @code_sections ) {
!         my $fixed_section = $self->_trim_preformatted_line_length( $section );
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$fixed_section</pre>|gsm;
          $count++;
      }
***************
*** 474,477 ****
--- 477,496 ----
  }
  
+ sub _trim_preformatted_line_length {
+     my ( $self, $text ) = @_;
+     my @new = ();
+     my $max = $self->param( 'max_ecode_line' ) || $DEFAULT_ECODE_LINE_LENGTH;
+     foreach my $line ( split /\r?\n/, $text ) {
+         if ( length $line > $max ) {
+             push @new, substr( $line, 0, $max ) . '+',
+                        substr( $line, $max );
+         }
+         else {
+             push @new, $line;
+         }
+     }
+     return join( "\n", @new );
+ }
+ 
  # When a new thread is added you can add people who get notified with
  # every new message in that thread. Return value is the number of