loncom/publisher/loncleanup.pm - diff

Return to loncleanup.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.4, 2005/05/29 01:46:16	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;
}	}
Line 363 sub handler {	Line 364 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;

$r->print('<html><head><title>LON-CAPA Construction Space</title></head>');	my $html=&Apache::lonxml::xmlbegin();
	$r->print($html.'<head><title>LON-CAPA Construction Space</title></head>');

$r->print(&Apache::loncommon::bodytag('Cleanup XML Document'));	$r->print(&Apache::loncommon::bodytag('Cleanup XML Document'));
$r->print('<h2>'.$fn.'</h2>'.	$r->print('<h2>'.$fn.'</h2>'.