Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql	15 May 2001 16:59:00 -0000	1.2
@@ -21,6 +21,18 @@
 </fullquery>
 
  
+<fullquery name="acs_subsite_post_instantiation.select_package_object_names">      
+      <querytext>
+      
+	    select t.pretty_name as package_name, acs_object.name(s.object_id) as object_name
+	      from site_nodes s, apm_package_types t
+	     where s.node_id = :node_id
+	       and t.package_key = :package_key
+	
+      </querytext>
+</fullquery>
+
+ 
 <fullquery name="acs_subsite_post_instantiation.sub_type_exists_p">      
       <querytext>
       
@@ -36,4 +48,16 @@
 </fullquery>
 
  
+<fullquery name="acs_subsite_post_instantiation.select_object_type_path">      
+      <querytext>
+      
+	select object_type
+	from acs_object_types
+	start with object_type = :object_type
+	connect by object_type = prior supertype
+    
+      </querytext>
+</fullquery>
+
+ 
 </queryset>