loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.339, 2003/03/14 15:08:20	version 1.340, 2003/03/14 19:35:54
Line 3114 sub metadata {	Line 3114 sub metadata {
$value.=' [Part: '.$part.']';	$value.=' [Part: '.$part.']';
}	}
my $unikey='parameter'.$keyroot.'_'.$name;	my $unikey='parameter'.$keyroot.'_'.$name;
	if ($subp eq 'default') { $unikey='parameter_0_'.$name; }
$metathesekeys{$unikey}=1;	$metathesekeys{$unikey}=1;
$metacache{$uri.':'.$unikey.'.part'}=$part;	$metacache{$uri.':'.$unikey.'.part'}=$part;
unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {	unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {