--- loncom/interface/domainstatus.pm	2008/12/22 21:13:25	1.1
+++ loncom/interface/domainstatus.pm	2008/12/25 01:52:50	1.2
@@ -2,7 +2,7 @@
 # Generate a menu page containing links to server status pages accessible
 # to user. 
 #
-# $Id: domainstatus.pm,v 1.1 2008/12/22 21:13:25 raeburn Exp $
+# $Id: domainstatus.pm,v 1.2 2008/12/25 01:52:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,7 +35,7 @@ use Apache::lonnet;
 use Apache::loncommon;
 use Apache::lonhtmlcommon;
 use Apache::lonlocal;
-use LONCAPA::loncgi;
+use LONCAPA::lonauthcgi;
 
 sub handler {
     my $r = shift;
@@ -57,12 +57,12 @@ sub handler {
     my $domdesc = &Apache::lonnet::domain($dom,'description');
 
     my %candisplay;
-    my $titles = &LONCAPA::loncgi::serverstatus_titles();
+    my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
     if (ref($titles) eq 'HASH') {
         foreach my $page (keys(%{$titles})) {
-            if (&LONCAPA::loncgi::can_view($page)) {
+            if (&LONCAPA::lonauthcgi::can_view($page)) {
                 $candisplay{$page} = 'F';       
-            } elsif (&LONCAPA::loncgi::check_ipbased_access($page)) {
+            } elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) {
                 $candisplay{$page} = 'F';
             }
         }
@@ -128,7 +128,7 @@ sub print_status_menu {
 
 sub servermenu_items {
     my ($candisplay) = @_;
-    my $titles = &LONCAPA::loncgi::serverstatus_titles();
+    my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
     my $linknames = &serverstatus_links();
     my @menu;
     if ((ref($candisplay) eq 'HASH') && (ref($titles) eq 'HASH') &&