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

[raeburn]

raeburn		Tue Nov 15 16:39:28 2005 EDT

  Modified files:              
    /loncom/auth	lonroles.pm 
  Log:
  Don't include course group affiliations in selectable roles.
  
  
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.135 loncom/auth/lonroles.pm:1.136
--- loncom/auth/lonroles.pm:1.135	Mon Nov 14 15:03:52 2005
+++ loncom/auth/lonroles.pm	Tue Nov 15 16:39:28 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.135 2005/11/14 20:03:52 albertel Exp $
+# $Id: lonroles.pm,v 1.136 2005/11/15 21:39:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -436,7 +436,7 @@
         if ($envkey=~/^user\.role\./) {
             my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend,$tfont);
             &role_status($envkey,$then,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
-            next if (!defined($role) || $role eq '');
+            next if (!defined($role) || $role eq '' || $role =~ /^gr/);
             $tremark='';
             $tpstart=' ';
             $tpend=' ';