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; |