loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.127, 2001/05/30 21:53:17	version 1.128, 2001/06/01 19:32:40
Line 105	Line 105
# 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,5/28 Gerd Kortemeyer	# 5/26,5/28 Gerd Kortemeyer
# 5/30 H. K. Ng	# 5/30 H. K. Ng
	# 6/1 Gerd Kortemeyer
#	#

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

use strict;	use strict;
Line 883 sub rolesinit {	Line 885 sub rolesinit {
}	}
} split(/&/,$rolesdump);	} split(/&/,$rolesdump);
my $adv=0;	my $adv=0;
	my $author=0;
map {	map {
%thesepriv=();	%thesepriv=();
if ($_ ne 'st') { $adv=1; }	if ($_!~/^st/) { $adv=1; }
	if (($_=~/^au/) \|\| ($_=~/^ca/)) { $author=1; }
map {	map {
if ($_ ne '') {	if ($_ ne '') {
my ($privilege,$restrictions)=split(/&/,$_);	my ($privilege,$restrictions)=split(/&/,$_);
Line 902 sub rolesinit {	Line 906 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";	$userroles.='user.adv='.$adv."\n".
	'user.author='.$author."\n";
$ENV{'user.adv'}=$adv;	$ENV{'user.adv'}=$adv;
}	}
return $userroles;	return $userroles;