version 1.109, 2004/02/12 17:34:24
|
version 1.111, 2004/04/12 23:01:57
|
Line 183 sub start_display {
|
Line 183 sub start_display {
|
} |
} |
$Apache::lonxml::post_evaluate=0; |
$Apache::lonxml::post_evaluate=0; |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
my $bodytext=&Apache::lonxml::get_all_text_unblanced("/display",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); |
#$result = |
#$result = |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
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; |
} |
} |
|
|