loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1048, 2009/12/30 18:01:17	version 1.1049, 2010/01/16 13:46:05
Line 4038 sub role_status {	Line 4038 sub role_status {
);	);
my $spec=$$role.'.'.$$where;	my $spec=$$role.'.'.$$where;
my ($tdummy,$tdomain,$trest)=split(/\//,$$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\//) {	if ($$role =~ /^cr\//) {
&custom_roleprivs(\%allroles,$$role,$tdomain,$trest,$spec,$$where);	&custom_roleprivs(\%allroles,$$role,$tdomain,$trest,$spec,$$where);
} elsif ($$role eq 'gr') {	} elsif ($$role eq 'gr') {