--- loncom/cgi/userstatus.pl	2008/11/28 20:45:21	1.17
+++ loncom/cgi/userstatus.pl	2008/12/25 01:56:03	1.18
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.17 2008/11/28 20:45:21 raeburn Exp $
+# $Id: userstatus.pl,v 1.18 2008/12/25 01:56:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@ use lib '/home/httpd/lib/perl/';
 use Apache::lonlocal;
 use LONCAPA::Configuration;
 use LONCAPA::loncgi;
+use LONCAPA::lonauthcgi;
 use HTTP::Headers;
 use GDBM_File;
 
@@ -72,16 +73,16 @@ sub main {
     delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed
     delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
 
-    if (!&LONCAPA::loncgi::check_ipbased_access()) {
+    if (!&LONCAPA::lonauthcgi::check_ipbased_access()) {
         if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
             &Apache::lonlocal::get_language_handle();
             print &LONCAPA::loncgi::missing_cookie_msg();
             return;
         }
 
-        if (!&LONCAPA::loncgi::can_view('userstatus')) {
+        if (!&LONCAPA::lonauthcgi::can_view('userstatus')) {
             &Apache::lonlocal::get_language_handle();
-            print &LONCAPA::loncgi::unauthorized_msg('userstatus');
+            print &LONCAPA::lonauthcgi::unauthorized_msg('userstatus');
             return;
         }
     }