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') { |