version 1.419, 2016/11/11 02:09:55
|
version 1.421, 2016/11/12 00:16:24
|
Line 1836 sub display_existing_roles {
|
Line 1836 sub display_existing_roles {
|
my $class='Unknown'; |
my $class='Unknown'; |
my $credits=''; |
my $credits=''; |
my $csec; |
my $csec; |
if ($area =~ m{^/($match_domain)/($match_courseid)} ) { |
if ($area =~ m{^/($match_domain)/($match_courseid)}) { |
$class='Course'; |
$class='Course'; |
my ($coursedom,$coursedir) = ($1,$2); |
my ($coursedom,$coursedir) = ($1,$2); |
my $cid = $1.'_'.$2; |
my $cid = $1.'_'.$2; |
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3). |
# $1.'_'.$2 is the course id (eg. 103_12345abcef103l3). |
|
next if ($envkey =~ m{^/$match_domain/$match_courseid/[A-Za-z0-9]+_gr$}); |
my %coursedata= |
my %coursedata= |
&Apache::lonnet::coursedescription($cid); |
&Apache::lonnet::coursedescription($cid); |
if ($coursedir =~ /^$match_community$/) { |
if ($coursedir =~ /^$match_community$/) { |
Line 2000 sub display_existing_roles {
|
Line 2001 sub display_existing_roles {
|
$rolepriv{$envkey}='edit'; |
$rolepriv{$envkey}='edit'; |
} else { |
} else { |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
if (&Apache::lonnet::allowed('vur',$ccdomain)) { |
if ((&Apache::lonnet::allowed('vur',$ccdomain)) && |
|
($envkey=~m{^/$ccdomain/})) { |
$rolepriv{$envkey}='view'; |
$rolepriv{$envkey}='view'; |
} |
} |
} elsif ($context eq 'course') { |
} elsif ($context eq 'course') { |