loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.167, 2006/10/13 21:28:50	version 1.168, 2006/10/20 19:59:57
Line 1038 sub set_privileges {	Line 1038 sub set_privileges {
my $area = '/'.$dcdom.'/'.$pickedcourse;	my $area = '/'.$dcdom.'/'.$pickedcourse;
my $role = 'cc';	my $role = 'cc';
my $spec = $role.'.'.$area;	my $spec = $role.'.'.$area;
my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',$dcdom,$env{'user.name'});	my %userroles = &Apache::lonnet::set_arearole($role,$area,'','',
	$env{'user.domain'},
	$env{'user.name'});
my %ccrole = ();	my %ccrole = ();
&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);	&Apache::lonnet::standard_roleprivs(\%ccrole,$role,$dcdom,$spec,$pickedcourse,$area);
my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);	my ($author,$adv)= &Apache::lonnet::set_userprivs(\%userroles,\%ccrole);