version 1.99, 2003/06/18 21:04:42
|
version 1.102, 2003/10/30 20:20:00
|
Line 45 BEGIN {
|
Line 45 BEGIN {
|
'window','display','storetc','physnet', |
'window','display','storetc','physnet', |
'standalone','comment', |
'standalone','comment', |
'LONCAPA_INTERNAL_TURN_STYLE_ON', |
'LONCAPA_INTERNAL_TURN_STYLE_ON', |
|
'LONCAPA_INTERNAL_TURN_STYLE_OFF', |
'LONCAPA_INTERNAL_LONHTTPD_PORT')); |
'LONCAPA_INTERNAL_LONHTTPD_PORT')); |
} |
} |
|
|
Line 63 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
|
Line 64 sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
|
return ('','no'); |
return ('','no'); |
} |
} |
|
|
|
sub start_LONCAPA_INTERNAL_TURN_STYLE_OFF { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
$Apache::lonxml::usestyle=0; |
|
my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval); |
|
if (!$end) { |
|
$Apache::lonxml::style_values=$$parstack[-1]; |
|
$Apache::lonxml::style_end_values=$$parstack[-1]; |
|
} else { |
|
$Apache::lonxml::style_values=$Apache::lonxml::style_end_values; |
|
$Apache::lonxml::style_end_values=''; |
|
} |
|
return ('','no'); |
|
} |
|
|
|
sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF { |
|
return ('','no'); |
|
} |
|
|
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') { |
Line 87 sub start_script {
|
Line 106 sub start_script {
|
if ($type eq "loncapa/perl") { |
if ($type eq "loncapa/perl") { |
my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); |
if ( $target eq "modified" ) { |
if ( $target eq "modified" ) { |
$result=$token->[4].&Apache::edit::modifiedfield(); |
$result=$token->[4].&Apache::edit::modifiedfield(); |
} elsif ( $target eq 'web' || $target eq 'tex' || |
} elsif ( $target eq 'web' || $target eq 'tex' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'analyze' ) { |
$target eq 'analyze' ) { |
Line 158 sub start_display {
|
Line 177 sub start_display {
|
$target eq 'analyze') { |
$target eq 'analyze') { |
$result=''; # grade should produce no output |
$result=''; # grade should produce no output |
} |
} |
|
$Apache::lonxml::post_evaluate=0; |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
#$result = |
#$result = |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
Line 430 sub start_comment {
|
Line 450 sub start_comment {
|
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser); |
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser); |
$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') { |
|
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser); |
$result=$token->[4].&Apache::edit::modifiedfield($token); |
$result=$token->[4].&Apache::edit::modifiedfield($token); |
} 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') { |