--- loncom/cgi/lonmodulecheck.pl	2013/02/08 14:51:47	1.2
+++ loncom/cgi/lonmodulecheck.pl	2014/05/10 13:58:15	1.5
@@ -3,7 +3,7 @@ $|=1;
 # Compares checksums for most installed files with expected values
 # and reports discrepancies.
 #
-# $Id: lonmodulecheck.pl,v 1.2 2013/02/08 14:51:47 raeburn Exp $
+# $Id: lonmodulecheck.pl,v 1.5 2014/05/10 13:58:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,9 @@ if ($londaemons ne '' && $lonlib ne '' &
 
 sub main {
     my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
-    if (!&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {
+    if (&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {
+        &LONCAPA::loncgi::check_cookie_and_load_env();
+    } else {
         if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
             &Apache::lonlocal::get_language_handle();
             print(&LONCAPA::loncgi::missing_cookie_msg());
@@ -79,7 +81,7 @@ sub main {
 sub print_differences {
     my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
     my $machine_dom = &Apache::lonnet::host_domain($lonhost);
-    my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom);
+    my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom,$lonhost);
     my ($version,$timestamp) = split(/\-/,$loncaparev);
     &Apache::lonlocal::get_language_handle();
     print(&Apache::loncommon::start_page('Code integrity check'));
@@ -89,7 +91,7 @@ sub print_differences {
               '</h3>');
     } else {
         print('<h3>'.
-              &Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',
+              &Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]',
                                     $version).
               '</h3>');
         my $distro = &LONCAPA::distro();