loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.354, 2005/01/30 12:56:45	version 1.355, 2005/01/30 23:31:12
Line 384 sub htmlclean {	Line 384 sub htmlclean {
# Make standard tags lowercase	# Make standard tags lowercase
foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m',	foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m',
'table','tr','td','th','p','br','hr','img','embed','font',	'table','tr','td','th','p','br','hr','img','embed','font',
'a','strong','center','title','basefont') {	'a','strong','center','title','basefont','li','ol','ul',
	'input','select','form','option','script','pre') {
$raw=~s/\<$_\s*\>/\<$_\>/gis;	$raw=~s/\<$_\s*\>/\<$_\>/gis;
$raw=~s/\<\/$_\s*\>/<\/$_\>/gis;	$raw=~s/\<\/$_\s*\>/<\/$_\>/gis;
$raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis;	$raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis;