--- loncom/auth/lonroles.pm 2016/10/27 22:51:08 1.320 +++ loncom/auth/lonroles.pm 2016/11/08 23:09:33 1.321 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.320 2016/10/27 22:51:08 raeburn Exp $ +# $Id: lonroles.pm,v 1.321 2016/11/08 23:09:33 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1857,9 +1857,15 @@ sub adhoc_course_role { my %cgroups = &Apache::lonnet::get_active_groups($env{'user.domain'}, $env{'user.name'},$cdom,$cnum); + my $ccrole; + if ($crstype eq 'Community') { + $ccrole = 'co'; + } else { + $ccrole = 'cc'; + } foreach my $group (keys(%cgroups)) { $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; my $area = '/'.$cdom.'/'.$cnum;