loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.124, 2001/05/26 19:57:47	version 1.125, 2001/05/28 16:38:14
Line 103	Line 103
# 3/15,3/19 Scott Harrison	# 3/15,3/19 Scott Harrison
# 3/19,3/20 Gerd Kortemeyer	# 3/19,3/20 Gerd Kortemeyer
# 3/22,3/27,4/2,4/16,4/17 Scott Harrison	# 3/22,3/27,4/2,4/16,4/17 Scott Harrison
# 5/26 Gerd Kortemeyer	# 5/26,5/28 Gerd Kortemeyer
#	#
package Apache::lonnet;	package Apache::lonnet;

Line 881 sub rolesinit {	Line 881 sub rolesinit {
}	}
}	}
} split(/&/,$rolesdump);	} split(/&/,$rolesdump);
	my $adv=0;
map {	map {
%thesepriv=();	%thesepriv=();
	if ($_ ne 'st') { $adv=1; }
map {	map {
if ($_ ne '') {	if ($_ ne '') {
my ($privilege,$restrictions)=split(/&/,$_);	my ($privilege,$restrictions)=split(/&/,$_);
Line 899 sub rolesinit {	Line 901 sub rolesinit {
map { $thesestr.=':'.$_.'&'.$thesepriv{$_}; } keys %thesepriv;	map { $thesestr.=':'.$_.'&'.$thesepriv{$_}; } keys %thesepriv;
$userroles.='user.priv.'.$_.'='.$thesestr."\n";	$userroles.='user.priv.'.$_.'='.$thesestr."\n";
} keys %allroles;	} keys %allroles;
	$userroles.='user.adv='.$adv."\n";
}	}
return $userroles;	return $userroles;
}	}