loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.295, 2014/01/15 14:46:21	version 1.296, 2014/02/23 19:06:18
Line 288 sub handler {	Line 288 sub handler {
"request.role.domain" => $env{'user.domain'}});	"request.role.domain" => $env{'user.domain'}});
# Check if user is a DC trying to enter a course or author space and needs privs to be created	# Check if user is a DC trying to enter a course or author space and needs privs to be created
if ($numdc > 0) {	if ($numdc > 0) {
foreach my $envkey (keys %env) {	foreach my $envkey (keys(%env)) {
# Is this an ad-hoc Coordinator role?	# Is this an ad-hoc Coordinator role?
if (my ($ccrole,$domain,$coursenum) =	if (my ($ccrole,$domain,$coursenum) =
($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {	($envkey =~ m-^form\.(cc\|co)\./($match_domain)/($match_courseid)$-)) {
Line 358 sub handler {	Line 358 sub handler {
}	}
}	}

foreach $envkey (keys %env) {	foreach $envkey (keys(%env)) {
next if ($envkey!~/^user\.role\./);	next if ($envkey!~/^user\.role\./);
my ($where,$trolecode,$role,$tstatus,$tend,$tstart);	my ($where,$trolecode,$role,$tstatus,$tend,$tstart);
&Apache::lonnet::role_status($envkey,$update,$refresh,$now,\$role,\$where,	&Apache::lonnet::role_status($envkey,$update,$refresh,$now,\$role,\$where,