loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.269.2.4, 2012/12/13 21:11:17	version 1.269.2.5, 2012/12/27 22:48:01
Line 1662 sub adhoc_course_role {	Line 1662 sub adhoc_course_role {
$setprivs = 1;	$setprivs = 1;
}	}
}	}
	unless ($setprivs) {
	if (!exists($env{'user.priv.'.$env{'form.switchrole'}.'./'})) {
	$setprivs = 1;
	}
	}
if ($setprivs) {	if ($setprivs) {
if ($env{'form.switchrole'} =~ m-^(in\|ta\|ep\|ad\|st\|cr)([\w/])\./\Q$cdom\E/\Q$cnum\E/?(\w)$-) {	if ($env{'form.switchrole'} =~ m-^(in\|ta\|ep\|ad\|st\|cr)([\w/])\./\Q$cdom\E/\Q$cnum\E/?(\w)$-) {
my $role = $1;	my $role = $1;
Line 1689 sub adhoc_course_role {	Line 1694 sub adhoc_course_role {
$spec .= '/'.$usec;	$spec .= '/'.$usec;
$area .= '/'.$usec;	$area .= '/'.$usec;
}	}
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);	if ($role =~ /^cr/) {
	&Apache::lonnet::custom_roleprivs(\%newrole,$role,$cdom,$cnum,$spec,$area);
	} else {
	&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);
	}
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups);	&Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups);
my $adhocstart = $refresh-1;	my $adhocstart = $refresh-1;
$userroles{'user.role.'.$spec} = $adhocstart.'.';	$userroles{'user.role.'.$spec} = $adhocstart.'.';