loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.26, 2005/07/13 21:21:01	version 1.27, 2005/07/20 05:13:46
Line 2864 sub write_webct4_questions {	Line 2864 sub write_webct4_questions {
$allfeedback .= $feedback;	$allfeedback .= $feedback;
}	}
if ($$settings{$id}{texttype} eq 'text/html') {	if ($$settings{$id}{texttype} eq 'text/html') {
$$settings{$id}{text} = &HTML::Entities::decode($$settings{$id}{text});	$$settings{$id}{text} =~ s/(\&)(nbsp\|gt\|lt)(?!;)/$1$2;$3/gi;
$$settings{$id}{text} = &Apache::loncleanup::htmlclean($$settings{$id}{text});	$$settings{$id}{text} = &Apache::loncleanup::htmlclean($$settings{$id}{text});
$$settings{$id}{text} =~ s#(<img src=["']?)([^>]+)(/?>)#$1../../resfiles/$2 />#gi;	$$settings{$id}{text} =~ s#(<img src=["']?)([^>]+?)(/?>)#$1../../resfiles/$2 />#gi;
$$settings{$id}{text} =~ s#<([bh])r>#<$1r />#g;	$$settings{$id}{text} =~ s#<([bh])r>#<$1r />#g;
# $$settings{$id}{text} =~ s#<p>#</p><p>#g;
# $$settings{$id}{text} =~ s#</p></p>#</p>#;
# $$settings{$id}{text} =~ s#<p></p>##g;
$$settings{$id}{text} =~ s#<p>#<br /><br />#g;	$$settings{$id}{text} =~ s#<p>#<br /><br />#g;
$$settings{$id}{text} =~ s#</p>##g;	$$settings{$id}{text} =~ s#</p>##g;
}	}