|
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; |
| } |
} |
![[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