loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.204, 2008/08/22 17:46:52	version 1.205, 2008/09/02 02:56:52
Line 149 sub handler {	Line 149 sub handler {
# Check if author blocked ca-access	# Check if author blocked ca-access
my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);	my %blocked=&Apache::lonnet::get('environment',['domcoord.author'],$domain,$user);
if ($blocked{'domcoord.author'} eq 'blocked') {	if ($blocked{'domcoord.author'} eq 'blocked') {
delete($env{$envkey});	my %roleshash = &Apache::lonnet::get_my_roles($user,$domain);
$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';	if (!defined($roleshash{$env{'user.name'}.':'.$env{'user.domain'}.':ca'})) {
last;	delete($env{$envkey});
	$env{'user.error.msg'}=':::1:User '.$user.' in domain '.$domain.' blocked domain coordinator access';
	last;
	}
}	}
if ($dcroles{$domain}) {	if ($dcroles{$domain}) {
my ($server_status,$home) = &check_author_homeserver($user,$domain);	my ($server_status,$home) = &check_author_homeserver($user,$domain);