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

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

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

Modified Files:
	Comments.pm 
Log Message:
OIN-128: actually do the thing we said we did earlier...


Index: Comments.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action/Comments.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Comments.pm	28 Feb 2005 00:54:30 -0000	1.11
--- Comments.pm	28 Feb 2005 01:43:53 -0000	1.12
***************
*** 355,358 ****
--- 355,360 ----
      # pull out any <ecode></ecode> sections for later
  
+     my $placeholder = 'CODECONTENT';
+ 
      my @code_sections = ();
      my $count = 0;
***************
*** 361,365 ****
      |
          push @code_sections, $2;
!        'CODECONTENT' . ++$count;
      |gisemx;
  
--- 363,367 ----
      |
          push @code_sections, $2;
!         $placeholder . ++$count;
      |gisemx;
  
***************
*** 385,389 ****
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment =~ s|CODESECTION$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }
--- 387,391 ----
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }