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; |