--- loncom/xml/scripttag.pm 2003/06/18 20:36:32 1.98
+++ loncom/xml/scripttag.pm 2003/10/30 20:20:00 1.102
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Script Vars
";
}
} elsif ($target eq "edit" ) {
#&Apache::run::run($bodytext,$safeeval);
@@ -156,6 +177,7 @@ sub start_display {
$target eq 'analyze') {
$result=''; # grade should produce no output
}
+ $Apache::lonxml::post_evaluate=0;
} elsif ($target eq "edit" ) {
#$result =
# "
<$token->[1]> output:
$bodytext
Source:
";
@@ -428,6 +450,7 @@ sub start_comment {
my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4)
} elsif ( $target eq 'modified') {
+ my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
$result=$token->[4].&Apache::edit::modifiedfield($token);
} elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' ||
$target eq 'answer' || $target eq 'meta' || $target eq 'analyze') {