loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.207, 2008/10/02 14:34:03	version 1.208, 2008/10/08 03:37:20
Line 1136 sub adhoc_course_role {	Line 1136 sub adhoc_course_role {
return;	return;
}	}
}	}
my (%userroles,%newrole,%newgroups);	my (%userroles,%newrole,%newgroups,%group_privs);
	my %cgroups =
	&Apache::lonnet::get_active_groups($env{'user.domain'},
	$env{'user.name'},$cdom,$cnum);
	foreach my $group (keys(%cgroups)) {
	$group_privs{$group} =
	$env{'user.priv.cc./'.$cdom.'/'.$cnum.'./'.$cdom.'/'.$cnum.'/'.$group};
	}
	$newgroups{'/'.$cdom.'/'.$cnum} = \%group_privs;
my $area = '/'.$cdom.'/'.$cnum;	my $area = '/'.$cdom.'/'.$cnum;
my $spec = $role.'.'.$area;	my $spec = $role.'.'.$area;
if ($usec ne '') {	if ($usec ne '') {
Line 1144 sub adhoc_course_role {	Line 1152 sub adhoc_course_role {
$area .= '/'.$usec;	$area .= '/'.$usec;
}	}
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,$area);	&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 = $then-1;	my $adhocstart = $then-1;
$userroles{'user.role.'.$spec} = $adhocstart.'.';	$userroles{'user.role.'.$spec} = $adhocstart.'.';
&Apache::lonnet::appenv(\%userroles,[$role,'cm']);	&Apache::lonnet::appenv(\%userroles,[$role,'cm']);