loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.137, 2001/08/04 14:45:28	version 1.139, 2001/08/04 20:13:17
Line 896 sub rolesinit {	Line 896 sub rolesinit {
my $author=0;	my $author=0;
map {	map {
%thesepriv=();	%thesepriv=();
if ($_!~/^st/) { $adv=1; }	if (($_!~/^st/) && ($_!~/^ta/)) { $adv=1; }
if (($_=~/^au/) \|\| ($_=~/^ca/)) { $author=1; }	if (($_=~/^au/) \|\| ($_=~/^ca/)) { $author=1; }
map {	map {
if ($_ ne '') {	if ($_ ne '') {
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);