--- loncom/cgi/lonmodulecheck.pl 2013/02/08 14:51:47 1.2 +++ loncom/cgi/lonmodulecheck.pl 2013/09/10 17:44:01 1.4 @@ -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.4 2013/09/10 17:44:01 bisitz 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()); @@ -89,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();