loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/scripttag.pm between versions 1.76 and 1.77

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

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' \|\|

Removed from v.1.76
changed lines
	Added in v.1.77