version 1.356, 2011/09/01 02:32:50
|
version 1.357, 2011/09/01 02:47:51
|
Line 1322 ENDNOTOOLSPRIV
|
Line 1322 ENDNOTOOLSPRIV
|
$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain); |
$addrolesdisplay = &new_coauthor_roles($r,$ccuname,$ccdomain); |
} |
} |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
my $add_domainroles = &new_domain_roles($r); |
my $add_domainroles = &new_domain_roles($r,$ccdomain); |
if (!$addrolesdisplay) { |
if (!$addrolesdisplay) { |
$addrolesdisplay = $add_domainroles; |
$addrolesdisplay = $add_domainroles; |
} |
} |
Line 1765 sub new_coauthor_roles {
|
Line 1765 sub new_coauthor_roles {
|
} |
} |
|
|
sub new_domain_roles { |
sub new_domain_roles { |
my ($r) = @_; |
my ($r,$ccdomain) = @_; |
my $addrolesdisplay = 0; |
my $addrolesdisplay = 0; |
# |
# |
# Domain level |
# Domain level |
Line 1783 sub new_domain_roles {
|
Line 1783 sub new_domain_roles {
|
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) { |
foreach my $thisdomain (sort(&Apache::lonnet::all_domains())) { |
foreach my $role (@allroles) { |
foreach my $role (@allroles) { |
next if ($role eq 'ad'); |
next if ($role eq 'ad'); |
|
next if (($role eq 'au') && ($ccdomain ne $thisdomain)); |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
if (&Apache::lonnet::allowed('c'.$role,$thisdomain)) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |