loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.85, 2010/07/20 02:42:27	version 1.86, 2010/08/17 22:22:00
Line 691 sub write_loncaparevs {	Line 691 sub write_loncaparevs {
foreach my $id (sort(keys(%hostname))) {	foreach my $id (sort(keys(%hostname))) {
if ($id ne '') {	if ($id ne '') {
my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');	my $loncaparev = &Apache::lonnet::get_server_loncaparev('',$id,1,'loncron');
if ($loncaparev =~ /^[\d.\-]+$/) {	if ($loncaparev =~ /^[\w.\-]+$/) {
print $fh $id.':'.$loncaparev."\n";	print $fh $id.':'.$loncaparev."\n";
}	}
}	}