--- loncom/lonnet/perl/lonnet.pm	2009/12/30 18:01:17	1.1048
+++ loncom/lonnet/perl/lonnet.pm	2010/01/16 13:46:05	1.1049
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1048 2009/12/30 18:01:17 raeburn Exp $
+# $Id: lonnet.pm,v 1.1049 2010/01/16 13:46:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4038,13 +4038,6 @@ sub role_status {
                             );
                             my $spec=$$role.'.'.$$where;
                             my ($tdummy,$tdomain,$trest)=split(/\//,$$where);
-                            if ($$role eq 'gr') {
-                                my %rolehash = &get('roles',[$$where.'_'.$$role],$env{'user.domain'},
-                                                    $env{'user.name'})=@_;
-                                my ($trole) = split('_',$role,1);
-                                (undef,my $group_privs) = split(/\//,$trole);
-                                $group_privs = &unescape($group_privs);
-                            }
                             if ($$role =~ /^cr\//) {
                                 &custom_roleprivs(\%allroles,$$role,$tdomain,$trest,$spec,$$where);
                             } elsif ($$role eq 'gr') {