loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.5, 2005/05/31 17:41:38	version 1.6, 2005/07/13 21:43:02
Line 218 sub htmlclean {	Line 218 sub htmlclean {
}	}
# Generate empty tags, remove wrong end tags	# Generate empty tags, remove wrong end tags
unless ($blockemptytags) {	unless ($blockemptytags) {
$raw=~s/\<(br\|hr\|img\|meta\|allow\|basefont)([^\>\/]*?)\>/\<$1$2 \/\>/gis;	$raw=~s/\<(br\|hr\|img\|meta\|embed\|allow\|basefont)([^\>]*?)\>/\<$1$2 \/\>/gis;
$raw=~s/\<\/(br\|hr\|img\|meta\|allow\|basefont)\>//gis;	$raw=~s/\<\/(br\|hr\|img\|meta\|embed\|allow\|basefont)\>//gis;
	$raw=~s/\/ \/\>/\/\>/gs;
unless ($full) {	unless ($full) {
$raw=~s/\<[\/]*(body\|head\|html)\>//gis;	$raw=~s/\<[\/]*(body\|head\|html)\>//gis;
}	}