loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.82, 2002/11/13 23:15:40	version 1.83, 2002/11/14 16:47:41
Line 176 sub start_scriptlib {	Line 176 sub start_scriptlib {
if ($target eq "edit" ) {	if ($target eq "edit" ) {
$result=	$result=
&Apache::edit::tag_start($target,$token,'New Script Functions').	&Apache::edit::tag_start($target,$token,'New Script Functions').
&Apache::edit::editline($token->[1],$bodytext,'',40).	&Apache::edit::editline($token->[1],$bodytext,'scriptlib',40).
	&Apache::edit::browse(undef,'textnode').
$error.'</td></tr>'.	$error.'</td></tr>'.
&Apache::edit::end_table();	&Apache::edit::end_table();
}	}
Line 295 sub start_import {	Line 296 sub start_import {
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::editline($token->[1],$bodytext,'',40);	$result.=&Apache::edit::editline($token->[1],$bodytext,'',40);
	$result.=&Apache::edit::browse(undef,'textnode');
#FIXME this need to convert $bodytext to be a contruction space reference	#FIXME this need to convert $bodytext to be a contruction space reference
#my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);	#my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext);
#$result.="Click<a href=\"$location\">here</a> to edit<br />"	#$result.="Click<a href=\"$location\">here</a> to edit<br />"