loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.56, 2001/11/05 22:59:33	version 1.57, 2001/11/12 20:27:28
Line 237 sub start_import {	Line 237 sub start_import {
my $dir=$location;	my $dir=$location;
$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");
	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
	if (!$id) { $id=$Apache::lonxml::curdepth; }
	push(@Apache::inputtags::import,$id);
&Apache::lonxml::newparser($parser,\$file,$dir);	&Apache::lonxml::newparser($parser,\$file,$dir);
} elsif ($target eq "edit" ) {	} elsif ($target eq "edit" ) {
$result.=&Apache::edit::tag_start($target,$token);	$result.=&Apache::edit::tag_start($target,$token);
Line 249 sub start_import {	Line 252 sub start_import {
$result=&Apache::edit::modifiedfield($token);	$result=&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);	&Apache::lonxml::debug($result);
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
$result.='<import id="'.$Apache::inputtags::part.'">';	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
	$result.='<import part="'.$Apache::inputtags::part;
	if ($id) {
	$result.='" id="'.$id;
	}
	$result.='">';
$result.=$bodytext;	$result.=$bodytext;
$result.='</import>';	$result.='</import>';
}	}
Line 257 sub start_import {	Line 265 sub start_import {
}	}

sub end_import {	sub end_import {
	pop(@Apache::inputtags::import);
return '';	return '';
}	}