loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.141, 2007/06/11 20:52:40	version 1.142, 2007/08/03 23:29:54
Line 391 sub start_import {	Line 391 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);	my $id= &Apache::lonxml::get_id($parstack,$safeeval);
if (!$id) { $id=$Apache::lonxml::curdepth; }	if (!$id) { $id=$Apache::lonxml::curdepth; }
push(@Apache::inputtags::import,$id);	push(@Apache::inputtags::import,$id);
push(@Apache::inputtags::importlist,$id);	push(@Apache::inputtags::importlist,$id);
Line 408 sub start_import {	Line 408 sub start_import {
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
$result=$token->[4].&Apache::edit::modifiedfield("/import",$parser);	$result=$token->[4].&Apache::edit::modifiedfield("/import",$parser);
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_id($parstack,$safeeval);
$result.='<import part="'.$Apache::inputtags::part;	$result.='<import part="'.$Apache::inputtags::part;
if ($id) {	if ($id) {
$result.='" id="'.$id;	$result.='" id="'.$id;