version 1.98, 2009/08/28 22:47:07
|
version 1.100, 2009/09/12 17:06:16
|
Line 4745 sub can_create_user {
|
Line 4745 sub can_create_user {
|
} |
} |
if (ref($domconf{'usercreation'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') { |
if ($context eq 'course' || $context eq 'author') { |
if ($context eq 'course' || $context eq 'author' || $context eq 'requestcrs') { |
my $creation = $domconf{'usercreation'}{'cancreate'}{$context}; |
my $creation = $domconf{'usercreation'}{'cancreate'}{$context}; |
if ($creation eq 'none') { |
if ($creation eq 'none') { |
$cancreate = 0; |
$cancreate = 0; |
Line 4846 sub roles_by_context {
|
Line 4846 sub roles_by_context {
|
my ($context,$custom) = @_; |
my ($context,$custom) = @_; |
my @allroles; |
my @allroles; |
if ($context eq 'course') { |
if ($context eq 'course') { |
@allroles = ('st','ad','ta','ep','in','cc'); |
@allroles = ('st'); |
|
if ($env{'request.role'} =~ m{^dc\./}) { |
|
push(@allroles,'ad'); |
|
} |
|
push(@allroles,('ta','ep','in','cc')); |
if ($custom) { |
if ($custom) { |
push(@allroles,'cr'); |
push(@allroles,'cr'); |
} |
} |
} elsif ($context eq 'author') { |
} elsif ($context eq 'author') { |
@allroles = ('ca','aa'); |
@allroles = ('ca','aa'); |
} elsif ($context eq 'domain') { |
} elsif ($context eq 'domain') { |
@allroles = ('li','dg','sc','au','dc'); |
@allroles = ('li','ad','dg','sc','au','dc'); |
} |
} |
return @allroles; |
return @allroles; |
} |
} |