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++;
}
|
