Index: openacs-4/packages/acs-subsite/tcl/party-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/party-procs-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/party-procs-oracle.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/party-procs-oracle.xql	15 May 2001 16:59:00 -0000	1.2
@@ -14,4 +14,39 @@
 </fullquery>
 
  
+<fullquery name="types_valid_for_rel_type_multirow.select_sub_rel_types">      
+      <querytext>
+      
+	select 
+	    types.pretty_name, 
+	    types.object_type, 
+	    types.tree_level, 
+	    types.indent,
+	    case when valid_types.object_type = null then 0 else 1 end as valid_p
+	from 
+	    (select
+	        t.pretty_name, t.object_type, level as tree_level,
+	        replace(lpad(' ', (level - 1) * 4), 
+	                ' ', '&nbsp;') as indent,
+	        rownum as tree_rownum
+	     from 
+	        acs_object_types t
+	     connect by 
+	        prior t.object_type = t.supertype
+	     start with 
+	        $start_with_clause ) types,
+	    (select 
+	        object_type 
+	     from 
+	        rel_types_valid_obj_two_types
+	     where 
+	        rel_type = :rel_type ) valid_types
+	where 
+	    types.object_type = valid_types.object_type(+)
+	order by tree_rownum
+	
+      </querytext>
+</fullquery>
+
+ 
 </queryset>