version 1.110, 2004/02/24 21:12:48
|
version 1.111, 2004/04/12 23:01:57
|
Line 482 sub end_comment {
|
Line 482 sub end_comment {
|
|
|
sub xmlparse { |
sub xmlparse { |
my ($string) = @_; |
my ($string) = @_; |
# &Apache::lonxml::debug("Got $string"); |
&Apache::lonxml::debug("xmlparse recursion starting with $string"); |
|
if ($string eq '&xmlparse') { return '&xmlparse'; } |
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; |
Line 490 sub xmlparse {
|
Line 491 sub xmlparse {
|
my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack, |
my $result=&Apache::lonxml::inner_xmlparse($target,$tagstack, |
$parstack,\@parser, |
$parstack,\@parser, |
$safeeval,$style); |
$safeeval,$style); |
|
&Apache::lonxml::debug("xmlparse recursion ending with $result"); |
return $result; |
return $result; |
} |
} |
|
|