version 1.98, 2009/08/28 22:47:07
|
version 1.99, 2009/09/05 01:13:02
|
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; |
} |
} |