loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.136, 2001/08/04 14:03:46	version 1.137, 2001/08/04 14:45:28
Line 1854 sub metadata {	Line 1854 sub metadata {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
if (defined($token->[2]->{'package'})) {	if (defined($token->[2]->{'package'})) {
my $package=$token->[2]->{'package'};	my $package=$token->[2]->{'package'};
	my %thispackagekeys=();
my $keyroot='';	my $keyroot='';
if (defined($token->[2]->{'part'})) {	if (defined($token->[2]->{'part'})) {
$keyroot.='_'.$token->[2]->{'part'};	$keyroot.='_'.$token->[2]->{'part'};
Line 1866 sub metadata {	Line 1867 sub metadata {
} else {	} else {
$metacache{$uri.':packages'}=$package.$keyroot;	$metacache{$uri.':packages'}=$package.$keyroot;
}	}
	undef %thispackagekeys;
	map {
	if ($_=~/^$package\&/) {
	my ($pack,$name,$subp)=split(/\&/,$_);
	my $unikey='parameter_'.$keyroot.'_'.$name;
	$thispackagekeys{$unikey}=1;
	$metacache{$uri.':'.$unikey.'.'.$subp}=$packagetab{$_};
	}
	} keys %packagetab;
	my $addpackagekeys=join(',',keys %thispackagekeys);
	if ($metacache{$uri.':keys'}) {
	$metacache{$uri.':keys'}.=','.$addpackagekeys;
	} else {
	$metacache{$uri.':keys'}=$addpackagekeys;
	}
} else {	} else {
my $entry=$token->[1];	my $entry=$token->[1];
my $unikey=$entry;	my $unikey=$entry;