loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.47, 2003/06/20 14:50:34	version 1.48, 2003/07/01 19:27:31
Line 243 sub clear_out_html {	Line 243 sub clear_out_html {
BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1);	BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1);

$message =~ s/\<(\/?\s(\w+)[^\>\<])/	$message =~ s/\<(\/?\s(\w+)[^\>\<])/
{($html{uc($2)}&(length($1)<1000))?"\<$1":"\<$1"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"\<$1":"\<$1"}/ge;
$message =~ s/(\<?\s(\w+)[^\<\>])\>/	$message =~ s/(\<?\s(\w+)[^\<\>])\>/
{($html{uc($2)}&(length($1)<1000))?"$1\>":"$1\>"}/ge;	{($html{uc($2)}&&(length($1)<1000))?"$1\>":"$1\>"}/ge;
} else {	} else {
$message=~s/\<\/m\s\>//g;	$message=~s/\<\/m\s\>//g;
$message=~s/\</\&lt\;/g;	$message=~s/\</\&lt\;/g;