Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/subsite-procs.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	11 Dec 2003 21:39:55 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.xql	18 Feb 2005 19:08:52 -0000	1.6
@@ -59,5 +59,21 @@
       </querytext>
 </fullquery>
 
+    <fullquery name="subsite::get_url.get_vhost">
+        <querytext>
+
+    select host
+      from host_node_map
+     where node_id = :node_id
+     $where_clause
+
+        </querytext>
+    </fullquery>
  
+    <partialquery name="subsite::get_url.strict_search">
+        <querytext>
+        and host = :search_vhost
+        </querytext>
+    </partialquery>
+ 
 </queryset>