doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.56, 2007/04/22 16:33:28	version 1.58, 2007/05/22 23:16:47
Line 655 my %perlvarstatic;	Line 655 my %perlvarstatic;
push(@libservers,$1);	push(@libservers,$1);
}	}
}	}
	# make list unique
	@libservers = keys(%{{ map { $_ => 1 } (@libservers) }});
close(IN);	close(IN);
if (@libservers == 1) {	if (@libservers == 1) {
$primaryLibServer = $libservers[0];	$primaryLibServer = $libservers[0];
Line 910 unless (-l "<TARGET />") {	Line 912 unless (-l "<TARGET />") {
$line2insert=<<END;	$line2insert=<<END;
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname	$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname
END	END
	if (!$domainTabExtras) {
	$domainTabExtras=':::::';
	}
$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras:$primaryLibServer\n";	$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras:$primaryLibServer\n";
if ($lonCluster eq 'standalone') {	if ($lonCluster eq 'standalone') {
open(OUT,'>../'.$lonCluster.'_hosts.tab') or	open(OUT,'>../'.$lonCluster.'_hosts.tab') or