--- loncom/cgi/lonmodulecheck.pl	2013/02/02 00:22:34	1.1
+++ loncom/cgi/lonmodulecheck.pl	2013/02/08 14:51:47	1.2
@@ -3,7 +3,7 @@ $|=1;
 # Compares checksums for most installed files with expected values
 # and reports discrepancies.
 #
-# $Id: lonmodulecheck.pl,v 1.1 2013/02/02 00:22:34 raeburn Exp $
+# $Id: lonmodulecheck.pl,v 1.2 2013/02/08 14:51:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,6 +37,7 @@ use LONCAPA::Configuration();
 use LONCAPA::loncgi();
 use LONCAPA::lonauthcgi();
 use LONCAPA::Checksumming();
+use LONCAPA;
 
 my $perlvar=&LONCAPA::Configuration::read_conf('loncapa.conf');
 my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost);
@@ -71,7 +72,6 @@ sub main {
         }
     }
 
-    &Apache::lonlocal::get_language_handle();
     &print_differences($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost);
     return;
 }
@@ -81,20 +81,18 @@ sub print_differences {
     my $machine_dom = &Apache::lonnet::host_domain($lonhost);
     my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom);
     my ($version,$timestamp) = split(/\-/,$loncaparev);
-    print(&Apache::loncommon::start_page('LON-CAPA code integrity checking'));
+    &Apache::lonlocal::get_language_handle();
+    print(&Apache::loncommon::start_page('Code integrity check'));
     if ($loncaparev =~ /CVS_HEAD/) {
-        print(&Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD').
-              "\n");
+        print('<h3>'.
+              &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD').
+              '</h3>');
     } else {
-        print('<h2>'.
+        print('<h3>'.
               &Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',
                                     $version).
-              '</h2>');
-        my $distro;
-        if (open(my $disth,"$londaemons/distprobe |")) {
-            $distro = <$disth>;
-            close($disth);
-        }
+              '</h3>');
+        my $distro = &LONCAPA::distro();
         if ($distro) {
             my ($serversums,$serverversions) =
                 &LONCAPA::Checksumming::get_checksums($distro,$londaemons,$lonlib,