version 1.136, 2006/03/24 21:45:51
|
version 1.137, 2006/03/29 22:41:39
|
Line 82 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
|
Line 82 sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF
|
|
|
sub start_LONCAPA_INTERNAL_LONHTTPD_PORT { |
sub start_LONCAPA_INTERNAL_LONHTTPD_PORT { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'webgrade') { |
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'}; |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; } |
return '<script type="text/javascript">var lonhttpdport=\''. |
return '<script type="text/javascript">var lonhttpdport=\''. |
Line 222 sub start_scriptlib {
|
Line 222 sub start_scriptlib {
|
|
|
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
$target eq 'analyze') { |
$target eq 'analyze' || $target eq 'webgrade') { |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |
Line 268 sub start_parserlib {
|
Line 268 sub start_parserlib {
|
my $error=''; |
my $error=''; |
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
$target eq 'analyze') { |
$target eq 'analyze' || $target eq 'webgrade') { |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |
Line 309 sub end_parserlib {
|
Line 309 sub end_parserlib {
|
sub start_window { |
sub start_window { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'webgrade') { |
&Apache::lonxml::startredirection; |
&Apache::lonxml::startredirection; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$result = '\unskip\footnote{'; |
$result = '\unskip\footnote{'; |
Line 331 sub start_window {
|
Line 331 sub start_window {
|
sub end_window { |
sub end_window { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web' || $target eq 'webgrade') { |
my $output=&Apache::lonxml::endredirection; |
my $output=&Apache::lonxml::endredirection; |
$output =~ s/[\n\r]/ /g; |
$output =~ s/[\n\r]/ /g; |
# $output = &HTML::Entities::encode($output,'<>&"\''); |
# $output = &HTML::Entities::encode($output,'<>&"\''); |
Line 464 sub end_physnet {
|
Line 464 sub end_physnet {
|
sub start_standalone { |
sub start_standalone { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=''; |
my $result=''; |
if ($target eq 'web' ) { |
if ($target eq 'web' || $target eq 'webgrade') { |
if ( $env{'request.course.id'} ) { |
if ( $env{'request.course.id'} ) { |
my $inside = &Apache::lonxml::get_all_text("/standalone",$parser,$style); |
my $inside = &Apache::lonxml::get_all_text("/standalone",$parser,$style); |
} else { |
} else { |
Line 477 sub start_standalone {
|
Line 477 sub start_standalone {
|
sub end_standalone { |
sub end_standalone { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result=''; |
my $result=''; |
if ($target eq 'web' ) { |
if ($target eq 'web' || $target eq 'webgrade' ) { |
if ( $env{'request.course.id'} ) { |
if ( $env{'request.course.id'} ) { |
} else { |
} else { |
$result='</td></tr></table>'; |
$result='</td></tr></table>'; |
Line 495 sub start_comment {
|
Line 495 sub start_comment {
|
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4) |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4) |
} elsif ( $target eq 'modified') { |
} elsif ( $target eq 'modified') { |
$result=$token->[4].&Apache::edit::modifiedfield("/comment",$parser); |
$result=$token->[4].&Apache::edit::modifiedfield("/comment",$parser); |
} elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
} elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
$target eq 'answer' || $target eq 'meta' || $target eq 'analyze') { |
$target eq 'answer' || $target eq 'meta' || $target eq 'analyze' || |
|
$target eq 'webgrade') { |
#normally throw away comments |
#normally throw away comments |
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser,$style); |
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser,$style); |
} |
} |
Line 538 sub start_num {
|
Line 539 sub start_num {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my $result = ''; |
my $result = ''; |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/num",$parser); |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/num",$parser); |
if ($target eq 'tex' || $target eq 'web') { |
if ($target eq 'tex' || $target eq 'web' || $target eq 'webgrade') { |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
Line 559 sub end_num {
|
Line 560 sub end_num {
|
sub start_parse { |
sub start_parse { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my $result = ''; |
my $result = ''; |
if ( $target eq 'web' || $target eq 'tex' || |
if ( $target eq 'web' || $target eq 'tex' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'analyze') { |
$target eq 'analyze'|| $target eq 'webgrade') { |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/parse",$parser); |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/parse",$parser); |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
Line 589 sub end_parse {
|
Line 590 sub end_parse {
|
sub start_algebra { |
sub start_algebra { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_; |
my $result = ''; |
my $result = ''; |
if ( $target eq 'web' || $target eq 'tex' || |
if ( $target eq 'web' || $target eq 'tex' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'analyze') { |
$target eq 'analyze' || $target eq 'webgrade') { |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/algebra",$parser); |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/algebra",$parser); |
$inside = &Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
$inside = &Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'tex' || $target eq 'analyze') { |