version 1.121, 2005/02/18 05:38:05
|
version 1.122, 2005/02/21 23:23:30
|
Line 41 BEGIN {
|
Line 41 BEGIN {
|
&Apache::lonxml::register('Apache::scripttag', |
&Apache::lonxml::register('Apache::scripttag', |
('script','scriptlib','parserlib','import', |
('script','scriptlib','parserlib','import', |
'window','display','storetc','physnet', |
'window','display','storetc','physnet', |
'standalone','comment', |
'standalone','comment','num','parse', |
'LONCAPA_INTERNAL_TURN_STYLE_ON', |
'LONCAPA_INTERNAL_TURN_STYLE_ON', |
'LONCAPA_INTERNAL_TURN_STYLE_OFF', |
'LONCAPA_INTERNAL_TURN_STYLE_OFF', |
'LONCAPA_INTERNAL_LONHTTPD_PORT')); |
'LONCAPA_INTERNAL_LONHTTPD_PORT')); |
Line 505 sub xmlparse {
|
Line 505 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"); |
&Apache::lonxml::debug("target is $target xmlparse recursion ending with $result"); |
return $result; |
return $result; |
} |
} |
|
|
|
sub start_num { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
|
my $result = ''; |
|
my $inside = &Apache::lonxml::get_all_text_unbalanced("/num",$parser); |
|
if ($target eq 'tex' || $target eq 'web') { |
|
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
|
if (!$Apache::lonxml::default_homework_loaded) { |
|
&Apache::lonxml::default_homework_load($safeeval); |
|
} |
|
@Apache::scripttag::parser_env = @_; |
|
my $format=&Apache::lonxml::get_param('format',$parstack,$safeeval); |
|
$result=&Apache::run::run("return &prettyprint(q\0$inside\0,q\0$format\0);",$safeeval); |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_num { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
|
my $result = ''; |
|
return $result; |
|
} |
|
|
|
sub start_parse { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
|
my $result = ''; |
|
if ( $target eq 'web' || $target eq 'tex' || |
|
$target eq 'grade' || $target eq 'answer' || |
|
$target eq 'analyze') { |
|
my $inside = &Apache::lonxml::get_all_text_unbalanced("/parse",$parser); |
|
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
|
if (!$Apache::lonxml::default_homework_loaded) { |
|
&Apache::lonxml::default_homework_load($safeeval); |
|
} |
|
@Apache::scripttag::parser_env = @_; |
|
$result=&Apache::run::run("return &xmlparse(q\0$inside\0);",$safeeval); |
|
} |
|
return $result; |
|
} |
|
|
|
sub end_parse { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
|
my $result = ''; |
|
return $result; |
|
} |
1; |
1; |
__END__ |
__END__ |