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(); |