loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.143, 2001/08/07 22:56:06	version 1.144, 2001/08/08 17:56:57
Line 122	Line 122
# 5/30 H. K. Ng	# 5/30 H. K. Ng
# 6/1 Gerd Kortemeyer	# 6/1 Gerd Kortemeyer
# July Guy Albertelli	# July Guy Albertelli
# 8/4,8/7 Gerd Kortemeyer	# 8/4,8/7,8/8 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 1878 sub metadata {	Line 1878 sub metadata {
if ($_=~/^$package\&/) {	if ($_=~/^$package\&/) {
my ($pack,$name,$subp)=split(/\&/,$_);	my ($pack,$name,$subp)=split(/\&/,$_);
my $value=$packagetab{$_};	my $value=$packagetab{$_};
	my $part=$keyroot;
	$part=~s/^\_//;
if ($subp eq 'display') {	if ($subp eq 'display') {
my $part=$keyroot;
$part=~s/^\_//;
$value.=' [Part: '.$part.']';	$value.=' [Part: '.$part.']';
}	}
my $unikey='parameter'.$keyroot.'_'.$name;	my $unikey='parameter'.$keyroot.'_'.$name;
$metathesekeys{$unikey}=1;	$metathesekeys{$unikey}=1;
	$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;