version 1.1, 2008/12/22 21:13:25
|
version 1.2, 2008/12/25 01:52:50
|
Line 35 use Apache::lonnet;
|
Line 35 use Apache::lonnet;
|
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA::loncgi; |
use LONCAPA::lonauthcgi; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 57 sub handler {
|
Line 57 sub handler {
|
my $domdesc = &Apache::lonnet::domain($dom,'description'); |
my $domdesc = &Apache::lonnet::domain($dom,'description'); |
|
|
my %candisplay; |
my %candisplay; |
my $titles = &LONCAPA::loncgi::serverstatus_titles(); |
my $titles = &LONCAPA::lonauthcgi::serverstatus_titles(); |
if (ref($titles) eq 'HASH') { |
if (ref($titles) eq 'HASH') { |
foreach my $page (keys(%{$titles})) { |
foreach my $page (keys(%{$titles})) { |
if (&LONCAPA::loncgi::can_view($page)) { |
if (&LONCAPA::lonauthcgi::can_view($page)) { |
$candisplay{$page} = 'F'; |
$candisplay{$page} = 'F'; |
} elsif (&LONCAPA::loncgi::check_ipbased_access($page)) { |
} elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) { |
$candisplay{$page} = 'F'; |
$candisplay{$page} = 'F'; |
} |
} |
} |
} |
Line 128 sub print_status_menu {
|
Line 128 sub print_status_menu {
|
|
|
sub servermenu_items { |
sub servermenu_items { |
my ($candisplay) = @_; |
my ($candisplay) = @_; |
my $titles = &LONCAPA::loncgi::serverstatus_titles(); |
my $titles = &LONCAPA::lonauthcgi::serverstatus_titles(); |
my $linknames = &serverstatus_links(); |
my $linknames = &serverstatus_links(); |
my @menu; |
my @menu; |
if ((ref($candisplay) eq 'HASH') && (ref($titles) eq 'HASH') && |
if ((ref($candisplay) eq 'HASH') && (ref($titles) eq 'HASH') && |