loncom/cgi/lonmodulecheck.pl - diff

Return to lonmodulecheck.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.3, 2013/05/13 01:16:23	version 1.5, 2014/05/10 13:58:15
Line 81 sub main {	Line 81 sub main {
sub print_differences {	sub print_differences {
my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;	my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
my $machine_dom = &Apache::lonnet::host_domain($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);	my ($version,$timestamp) = split(/\-/,$loncaparev);
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
print(&Apache::loncommon::start_page('Code integrity check'));	print(&Apache::loncommon::start_page('Code integrity check'));
Line 91 sub print_differences {	Line 91 sub print_differences {
'</h3>');	'</h3>');
} else {	} else {
print('<h3>'.	print('<h3>'.
&Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',	&Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]',
$version).	$version).
'</h3>');	'</h3>');
my $distro = &LONCAPA::distro();	my $distro = &LONCAPA::distro();