loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

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') {