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; |