version 1.76, 2002/07/24 20:10:43
|
version 1.77, 2002/09/23 17:25:24
|
Line 71 sub start_script {
|
Line 71 sub start_script {
|
#&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |
#$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
#$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
$result=&Apache::edit::tag_start($target,$token,'Script'); |
$result=&Apache::edit::tag_start($target,$token,'Script'); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',50,4); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
} |
} |
} else { |
} else { |
if ($target ne "meta") { |
if ($target ne "meta") { |
Line 118 sub start_display {
|
Line 118 sub start_display {
|
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
$result=&Apache::edit::tag_start($target,$token,'Script With Display'); |
$result=&Apache::edit::tag_start($target,$token,'Script With Display'); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1) |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,1) |
} |
} |
return $result; |
return $result; |
} |
} |
Line 367 sub start_comment {
|
Line 367 sub start_comment {
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$result=&Apache::edit::tag_start($target,$token); |
$result=&Apache::edit::tag_start($target,$token); |
my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]); |
my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,4) |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4) |
} elsif ( $target eq 'modified') { |
} elsif ( $target eq 'modified') { |
$result=$token->[4].&Apache::edit::modifiedfield($token); |
$result=$token->[4].&Apache::edit::modifiedfield($token); |
} elsif ( $target eq 'web' || $target eq 'tex' || |
} elsif ( $target eq 'web' || $target eq 'tex' || |