loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.320, 2016/10/27 22:51:08	version 1.321, 2016/11/08 23:09:33
Line 1857 sub adhoc_course_role {	Line 1857 sub adhoc_course_role {
my %cgroups =	my %cgroups =
&Apache::lonnet::get_active_groups($env{'user.domain'},	&Apache::lonnet::get_active_groups($env{'user.domain'},
$env{'user.name'},$cdom,$cnum);	$env{'user.name'},$cdom,$cnum);
	my $ccrole;
	if ($crstype eq 'Community') {
	$ccrole = 'co';
	} else {
	$ccrole = 'cc';
	}
foreach my $group (keys(%cgroups)) {	foreach my $group (keys(%cgroups)) {
$group_privs{$group} =	$group_privs{$group} =
$env{'user.priv.cc./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};	$env{'user.priv.'.$ccrole.'./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};
}	}
$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;	$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;
my $area = '/'.$cdom.'/'.$cnum;	my $area = '/'.$cdom.'/'.$cnum;