version 1.420, 2016/11/11 14:39:23
|
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 2001 sub display_existing_roles {
|
Line 2002 sub display_existing_roles {
|
} else { |
} else { |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
if ((&Apache::lonnet::allowed('vur',$ccdomain)) && |
if ((&Apache::lonnet::allowed('vur',$ccdomain)) && |
($area=~m{^/$ccdomain/})) { |
($envkey=~m{^/$ccdomain/})) { |
$rolepriv{$envkey}='view'; |
$rolepriv{$envkey}='view'; |
} |
} |
} elsif ($context eq 'course') { |
} elsif ($context eq 'course') { |