Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql	24 Apr 2001 06:02:27 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql	10 Oct 2001 18:28:49 -0000	1.2
@@ -20,5 +20,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="root_of_host.node_id">
+      <querytext>
+
+        select node_id 
+	from host_node_map
+	where host = :host
+
+      </querytext>
+</fullquery>
+
  
 </queryset>