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.55 and 1.56

version 1.55, 2001/10/14 05:08:09	version 1.56, 2001/11/05 22:59:33
Line 238 sub start_import {	Line 238 sub start_import {
$dir=~s:/[^/]*$::;	$dir=~s:/[^/]*$::;
# &Apache::lonxml::debug("directory $dir $location file $file \n<b>END</b>\n");	# &Apache::lonxml::debug("directory $dir $location file $file \n<b>END</b>\n");
&Apache::lonxml::newparser($parser,\$file,$dir);	&Apache::lonxml::newparser($parser,\$file,$dir);
}	} elsif ($target eq "edit" ) {
if ($target eq "edit" ) {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);	$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1);
#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 />"
}	} elsif ($target eq 'modified') {
if ($target eq 'modified') {
$bodytext=$$parser[$#$parser]->get_text("/import");	$bodytext=$$parser[$#$parser]->get_text("/import");
$result=&Apache::edit::modifiedfield($token);	$result=&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);	&Apache::lonxml::debug($result);
	} elsif ($target eq 'meta') {
	$result.='<import id="'.$Apache::inputtags::part.'">';
	$result.=$bodytext;
	$result.='</import>';
}	}
return $result;	return $result;
}	}

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

Removed from v.1.55
changed lines
	Added in v.1.56