[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm

[raeburn]

raeburn		Tue Nov  8 23:09:33 2016 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  - Coordinator role in a Community is co. 
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.320 loncom/auth/lonroles.pm:1.321
--- loncom/auth/lonroles.pm:1.320	Thu Oct 27 22:51:08 2016
+++ loncom/auth/lonroles.pm	Tue Nov  8 23:09:33 2016
@@ -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 @@
                 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;