[LON-CAPA-cvs] cvs: doc /loncapafiles updatequery.piml

albertel lon-capa-cvs-allow@mail.lon-capa.org
Tue, 22 May 2007 23:16:47 -0000


albertel		Tue May 22 19:16:47 2007 EDT

  Modified files:              
    /doc/loncapafiles	updatequery.piml 
  Log:
  - better handling of primary library server in multi domained hosts
  
  
Index: doc/loncapafiles/updatequery.piml
diff -u doc/loncapafiles/updatequery.piml:1.57 doc/loncapafiles/updatequery.piml:1.58
--- doc/loncapafiles/updatequery.piml:1.57	Tue May 22 18:49:27 2007
+++ doc/loncapafiles/updatequery.piml	Tue May 22 19:16:47 2007
@@ -1,6 +1,6 @@
 <!-- updatequery.piml -->
 
-<!-- $Id: updatequery.piml,v 1.57 2007/05/22 22:49:27 albertel Exp $ -->
+<!-- $Id: updatequery.piml,v 1.58 2007/05/22 23:16:47 albertel Exp $ -->
 
 <!--
 
@@ -655,6 +655,8 @@
 		push(@libservers,$1);
 	    }
 	}
+	# make list unique
+	@libservers = keys(%{{ map { $_ => 1 } (@libservers) }});
 	close(IN);
 	if (@libservers == 1) {
 	    $primaryLibServer = $libservers[0];