|
version 1.136, 2011/08/05 14:46:58
|
version 1.137, 2012/04/25 21:05:30
|
|
Line 1422 sub curr_role_permissions {
|
Line 1422 sub curr_role_permissions {
|
| sub my_custom_roles { |
sub my_custom_roles { |
| my ($crstype) = @_; |
my ($crstype) = @_; |
| my %returnhash=(); |
my %returnhash=(); |
| my %rolehash=&Apache::lonnet::dump('roles'); |
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
| |
my %rolehash=&Apache::lonnet::dump('roles',undef,undef,'.',undef,$extra); |
| foreach my $key (keys(%rolehash)) { |
foreach my $key (keys(%rolehash)) { |
| if ($key=~/^rolesdef\_(\w+)$/) { |
if ($key=~/^rolesdef\_(\w+)$/) { |
| if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface