loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.275, 2002/08/28 21:50:27	version 1.276, 2002/08/30 18:36:03
Line 2797 sub metadata {	Line 2797 sub metadata {
my $package=$token->[2]->{'package'};	my $package=$token->[2]->{'package'};
my $keyroot='';	my $keyroot='';
if ($prefix) {	if ($prefix) {
$keyroot.='_'.$prefix;	$keyroot.=$prefix;
} else {	} else {
if (defined($token->[2]->{'part'})) {	if (defined($token->[2]->{'part'})) {
$keyroot.='_'.$token->[2]->{'part'};	$keyroot.='_'.$token->[2]->{'part'};
Line 2855 sub metadata {	Line 2855 sub metadata {
#	#
# Importing a library here	# Importing a library here
#	#
if (defined($depthcount)) { $depthcount++; } else
{ $depthcount=0; }
if ($depthcount<20) {	if ($depthcount<20) {
foreach (split(/\,/,&metadata($uri,'keys',	my $location=$parser->get_text('/import');
$parser->get_text('/import'),$unikey,	my $dir=$filename;
$depthcount))) {	$dir=~s\|[^/]*$\|\|;
	$location=&filelocation($dir,$location);
	foreach (sort(split(/\,/,&metadata($uri,'keys',
	$location,$unikey,
	$depthcount+1)))) {
$metathesekeys{$_}=1;	$metathesekeys{$_}=1;
}	}
}	}