Return to updatequery.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
version 1.57, 2007/05/22 22:49:27 | 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]; |