--- loncom/cgi/lonmodulecheck.pl 2013/05/13 01:16:23 1.3 +++ 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.3 2013/05/13 01:16:23 raeburn Exp $ +# $Id: lonmodulecheck.pl,v 1.5 2014/05/10 13:58:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -81,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')); @@ -91,7 +91,7 @@ sub print_differences { ''); } else { print('

'. - &Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]', + &Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]', $version). '

'); my $distro = &LONCAPA::distro();