loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.138, 2001/08/04 19:07:31	version 1.139, 2001/08/04 20:13:17
Line 1871 sub metadata {	Line 1871 sub metadata {
map {	map {
if ($_=~/^$package\&/) {	if ($_=~/^$package\&/) {
my ($pack,$name,$subp)=split(/\&/,$_);	my ($pack,$name,$subp)=split(/\&/,$_);
my $unikey='parameter_'.$keyroot.'_'.$name;	my $value=$packagetab{$_};
	if ($subp eq 'display') {
	my $part=$keyroot;
	$part=~s/^\_//;
	$value.=' [Part: '.$part.']';
	}
	my $unikey='parameter'.$keyroot.'_'.$name;
$thispackagekeys{$unikey}=1;	$thispackagekeys{$unikey}=1;
$metacache{$uri.':'.$unikey.'.'.$subp}=$packagetab{$_};	$metacache{$uri.':'.$unikey.'.'.$subp}=$value;
}	}
} keys %packagetab;	} keys %packagetab;
my $addpackagekeys=join(',',keys %thispackagekeys);	my $addpackagekeys=join(',',keys %thispackagekeys);