loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.314, 2004/03/30 07:16:24	version 1.315, 2004/03/31 05:24:00
Line 59	Line 59

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $prevent_entity_encode $errorcount $warningcount);	qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace $errorcount $warningcount);
use strict;	use strict;
use HTML::LCParser();	use HTML::LCParser();
use HTML::TreeBuilder();	use HTML::TreeBuilder();
Line 141 $evaluate = 1;	Line 141 $evaluate = 1;
# stores the list of active tag namespaces	# stores the list of active tag namespaces
@namespace=();	@namespace=();

# if 0 all high ASCII characters will be encoded into HTML Entities
$prevent_entity_encode=0;

# has the dynamic menu been updated to know about this resource	# has the dynamic menu been updated to know about this resource
$Apache::lonxml::registered=0;	$Apache::lonxml::registered=0;

Line 517 sub inner_xmlparse {	Line 514 sub inner_xmlparse {
}	}
}	}

# Encode any high ASCII characters
# if (!$Apache::lonxml::prevent_entity_encode) {
# $result=&HTML::Entities::encode($result,"\200-\377");
# }
if ($Apache::lonxml::redirection) {	if ($Apache::lonxml::redirection) {
$Apache::lonxml::outputstack['-1'] .= $result;	$Apache::lonxml::outputstack['-1'] .= $result;
} else {	} else {