--- loncom/cgi/userstatus.pl	2008/12/25 01:56:03	1.18
+++ loncom/cgi/userstatus.pl	2009/01/09 07:06:27	1.19
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.18 2008/12/25 01:56:03 raeburn Exp $
+# $Id: userstatus.pl,v 1.19 2009/01/09 07:06:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,7 +73,7 @@ sub main {
     delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed
     delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
 
-    if (!&LONCAPA::lonauthcgi::check_ipbased_access()) {
+    if (!&LONCAPA::lonauthcgi::check_ipbased_access('userstatus')) {
         if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
             &Apache::lonlocal::get_language_handle();
             print &LONCAPA::loncgi::missing_cookie_msg();