loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1062, 2010/05/04 15:21:29	version 1.1063, 2010/05/20 18:11:18
Line 3993 sub role_status {	Line 3993 sub role_status {
} elsif ($$role eq 'gr') {	} elsif ($$role eq 'gr') {
my %rolehash = &get('roles',[$$where.'_'.$$role],$env{'user.domain'},	my %rolehash = &get('roles',[$$where.'_'.$$role],$env{'user.domain'},
$env{'user.name'});	$env{'user.name'});
my $trole = split('_',$rolehash{$$where.'_'.$$role},1);	my ($trole) = split('_',$rolehash{$$where.'_'.$$role},1);
(undef,my $group_privs) = split(/\//,$trole);	(undef,my $group_privs) = split(/\//,$trole);
$group_privs = &unescape($group_privs);	$group_privs = &unescape($group_privs);
&group_roleprivs(\%allgroups,$$where,$group_privs,$$tend,$$tstart);	&group_roleprivs(\%allgroups,$$where,$group_privs,$$tend,$$tstart);