loncom/configuration/Checksumming.pm - diff

Return to Checksumming.pm CVS log

Up to [LON-CAPA] / loncom / configuration

version 1.5, 2013/02/08 15:14:22	version 1.6, 2013/06/29 16:59:09
Line 277 sub compare_checksums {	Line 277 sub compare_checksums {
foreach my $file (sort(keys(%missing))) {	foreach my $file (sort(keys(%missing))) {
my $revnum = $stdversions{$file};	my $revnum = $stdversions{$file};
if ($target eq 'web') {	if ($target eq 'web') {
$message .= '<td>'.$file.'</td>'."\n".	$message .= &Apache::loncommon::start_data_table_row()."\n".
	'<td>'.$file.'</td>'."\n".
'<td>'.$revnum.'</td>'."\n".	'<td>'.$revnum.'</td>'."\n".
&Apache::loncommon::end_data_table_row()."\n";	&Apache::loncommon::end_data_table_row()."\n";
} else {	} else {
Line 313 sub compare_checksums {	Line 314 sub compare_checksums {
}	}
foreach my $file (sort(keys(%extra))) {	foreach my $file (sort(keys(%extra))) {
if ($target eq 'web') {	if ($target eq 'web') {
$message .= '<td>'.$file.'</td>'."\n".	$message .= &Apache::loncommon::start_data_table_row()."\n".
	'<td>'.$file.'</td>'."\n".
'<td>'.$serverversions->{$file}.'</td>'."\n".	'<td>'.$serverversions->{$file}.'</td>'."\n".
&Apache::loncommon::end_data_table_row()."\n";	&Apache::loncommon::end_data_table_row()."\n";
} else {	} else {