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