loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.206, 2020/04/05 20:08:52	version 1.207, 2020/07/08 14:26:37
Line 1709 sub my_custom_roles {	Line 1709 sub my_custom_roles {
my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname);	my %rolehash=&Apache::lonnet::dump('roles',$udom,$uname);
foreach my $key (keys(%rolehash)) {	foreach my $key (keys(%rolehash)) {
if ($key=~/^rolesdef\_(\w+)$/) {	if ($key=~/^rolesdef\_(\w+)$/) {
	my $role = $1;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
next if ($rolehash{$key} =~ /bre\&S/);	next if ($rolehash{$key} =~ /bre\&S/);
}	}
$returnhash{$1}=$1;	$returnhash{$role}=$role;
}	}
}	}
return %returnhash;	return %returnhash;