--- loncom/auth/lonroles.pm	2005/11/14 20:03:52	1.135
+++ loncom/auth/lonroles.pm	2005/11/21 19:08:24	1.137
@@ -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.137 2005/11/21 19:08:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,11 @@ sub handler {
 		if ($tstatus eq 'is') {
 		    $where=~s/^\///;
 		    my ($cdom,$cnum,$csec)=split(/\//,$where);
+# check for course groups
+                    my %coursegroups = &Apache::lonnet::get_active_groups(
+                          $env{'user.domain'},$env{'user.name'},$cdom, $cnum);
+                    my $cgrps = join(':',keys(%coursegroups));
+
 # store role if recent_role list being kept
                     if ($env{'environment.recentroles'}) {
 			&Apache::lonhtmlcommon::store_recent('roles',
@@ -227,7 +232,8 @@ ENDENTERKEY
 		    &Apache::lonnet::appenv(
 					   'request.role'        => $trolecode,
 					   'request.role.domain' => $cdom,
-					   'request.course.sec'  => $csec);
+					   'request.course.sec'  => $csec,
+                                           'request.course.groups' => $cgrps);
                     my $tadv=0;
 		    my $msg=&mt('Entering course ...');
 
@@ -436,7 +442,7 @@ ENDHEADER
         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=' ';