version 1.111, 2004/04/12 23:01:57
|
version 1.113, 2004/07/15 16:43:37
|
Line 137 sub start_script {
|
Line 137 sub start_script {
|
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
} |
} |
} else { |
} else { |
if ($target ne "meta") { |
|
$result = $token->[4]; |
|
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
$result.=$bodytext; |
if ($target ne "meta") { |
} |
$result = $token->[4]; |
|
$result.=$bodytext; |
|
} |
} |
} |
return $result; |
return $result; |
} |
} |
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; |