loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.321, 2003/01/31 22:12:13	version 1.322, 2003/01/31 22:39:10
Line 3085 sub metadata {	Line 3085 sub metadata {
my $unikey='parameter'.$keyroot.'_'.$name;	my $unikey='parameter'.$keyroot.'_'.$name;
$metathesekeys{$unikey}=1;	$metathesekeys{$unikey}=1;
$metacache{$uri.':'.$unikey.'.part'}=$part;	$metacache{$uri.':'.$unikey.'.part'}=$part;
unless	unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
(defined($metacache{$uri.':'.$unikey.'.'.$subp})) {	$metacache{$uri.':'.$unikey.'.'.$subp}=$value;
$metacache{$uri.':'.$unikey.'.'.$subp}=$value;	}
	if (defined($metacache{$uri.':'.$unikey.'.default'})) {
	$metacache{$uri.':'.$unikey}=
	$metacache{$uri.':'.$unikey.'.default'}
}	}
}	}
}	}