version 1.101, 2003/10/03 17:15:01
|
version 1.102, 2003/10/30 20:20:00
|
Line 106 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 450 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') { |