loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.112, 2004/04/15 20:24:34	version 1.113, 2004/07/15 16:43:37
Line 483 sub end_comment {	Line 483 sub end_comment {
sub xmlparse {	sub xmlparse {
my ($string) = @_;	my ($string) = @_;
&Apache::lonxml::debug("xmlparse recursion starting with $string");	&Apache::lonxml::debug("xmlparse recursion starting with $string");
	# Apache::run::evaluate does an 'eval' on the name of the subroutine
	# if it detects something that looks like a subroutine, this ends up calling
	# things without any arguments and since perl is nice enough to pass
	# along the default arguments when you don't explicitly say no arguments
	# if you call &xmlparse, it gets &xmlparse passed as it argument.
	# Same thing soccurs with &chemparse.
if ($string eq '&xmlparse') { return '&xmlparse'; }	if ($string eq '&xmlparse') { return '&xmlparse'; }
	if ($string eq '&chemparse') { return '&chemparse'; }
my ($target,$token,$tagstack,$parstack,$oldparser,$safeeval,$style)=	my ($target,$token,$tagstack,$parstack,$oldparser,$safeeval,$style)=
@Apache::scripttag::parser_env;	@Apache::scripttag::parser_env;
my @parser;	my @parser;