loncom/cgi/lonauthcgi.pm - diff

Return to lonauthcgi.pm CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.10, 2013/02/02 00:22:34	version 1.11, 2013/10/27 17:16:36
Line 280 sub can_view {	Line 280 sub can_view {
}	}
}	}
unless ($allowed) {	unless ($allowed) {
	my %alloweddoms;
foreach my $dom (@poss_domains) {	foreach my $dom (@poss_domains) {
my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'],	my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'],
$dom);	$dom);
if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") {	if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") {
if ($page eq 'domconf') {	if ($page eq 'domconf') {
$allowed .= $dom.'&';	$alloweddoms{$dom} = 1;
} else {	} else {
$allowed = 1;	$allowed = 1;
}	}
Line 295 sub can_view {	Line 296 sub can_view {
my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'});	my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'});
if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) {	if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) {
if ($page eq 'domconf') {	if ($page eq 'domconf') {
$allowed .= $dom.'&';	$alloweddoms{$dom} = 1;
} else {	} else {
$allowed = 1;	$allowed = 1;
}	}
Line 307 sub can_view {	Line 308 sub can_view {
}	}
}	}
}	}
$allowed =~ s/\&$//;	if (($page eq 'domconf') && (!$allowed)) {
	$allowed = join('&',sort(keys(%alloweddoms)));
	}
}	}
}	}
return $allowed;	return $allowed;