loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1199, 2012/11/27 23:45:22	version 1.1200, 2012/11/29 03:23:52
Line 8039 sub assignrole {	Line 8039 sub assignrole {
# log new user role if status is ok	# log new user role if status is ok
if ($answer eq 'ok') {	if ($answer eq 'ok') {
&userrolelog($role,$uname,$udom,$url,$start,$end);	&userrolelog($role,$uname,$udom,$url,$start,$end);
# for course roles, perform group memberships changes triggered by role change.
unless ($role =~ /^gr/) {
&Apache::longroup::group_changes($udom,$uname,$url,$role,$origend,
$origstart,$selfenroll,$context);
}
if (($role eq 'cc') \|\| ($role eq 'in') \|\|	if (($role eq 'cc') \|\| ($role eq 'in') \|\|
($role eq 'ep') \|\| ($role eq 'ad') \|\|	($role eq 'ep') \|\| ($role eq 'ad') \|\|
($role eq 'ta') \|\| ($role eq 'st') \|\|	($role eq 'ta') \|\| ($role eq 'st') \|\|
($role=~/^cr/) \|\| ($role eq 'gr') \|\|	($role=~/^cr/) \|\| ($role eq 'gr') \|\|
($role eq 'co')) {	($role eq 'co')) {
	# for course roles, perform group memberships changes triggered by role change.
	unless ($role =~ /^gr/) {
	&Apache::longroup::group_changes($udom,$uname,$url,$role,$origend,
	$origstart,$selfenroll,$context);
	}
&courserolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,	&courserolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,
$selfenroll,$context);	$selfenroll,$context);
} elsif (($role eq 'li') \|\| ($role eq 'dg') \|\| ($role eq 'sc') \|\|	} elsif (($role eq 'li') \|\| ($role eq 'dg') \|\| ($role eq 'sc') \|\|