|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to scripttag.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml