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.64 and 1.65

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

version 1.64, 2002/01/17 16:51:07	version 1.65, 2002/01/21 16:41:31
Line 163 sub start_scriptlib {	Line 163 sub start_scriptlib {
}	}
if ($target eq "modified" ) {	if ($target eq "modified" ) {
$bodytext=$$parser[$#$parser]->get_text("/scriptlib");	$bodytext=$$parser[$#$parser]->get_text("/scriptlib");
$result=&Apache::edit::modifiedfield($token);	$result=$token->[4].&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);	&Apache::lonxml::debug($result);
}	}
return $result;	return $result;
Line 208 sub start_parserlib {	Line 208 sub start_parserlib {
}	}
if ($target eq "modified" ) {	if ($target eq "modified" ) {
$bodytext=$$parser[$#$parser]->get_text("/parserlib");	$bodytext=$$parser[$#$parser]->get_text("/parserlib");
$result=&Apache::edit::modifiedfield($token);	$result=$token->[4].&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);	&Apache::lonxml::debug($result);
}	}
return $result;	return $result;
Line 279 sub start_import {	Line 279 sub start_import {
#$result.="Click<a href=\"$location\">here</a> to edit<br />"	#$result.="Click<a href=\"$location\">here</a> to edit<br />"
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
$bodytext=$$parser[$#$parser]->get_text("/import");	$bodytext=$$parser[$#$parser]->get_text("/import");
$result=&Apache::edit::modifiedfield($token);	$result=$token->[4].&Apache::edit::modifiedfield($token);
&Apache::lonxml::debug($result);	&Apache::lonxml::debug($result);
} elsif ($target eq 'meta') {	} elsif ($target eq 'meta') {
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);

Removed from v.1.64
changed lines
	Added in v.1.65