[BACK]Return to domainstatus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/domainstatus.pm between versions 1.1 and 1.2

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') && 
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>