Index: openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql	15 May 2001 16:59:00 -0000	1.2
@@ -12,6 +12,41 @@
 </fullquery>
 
  
+<fullquery name="relation_remove.select_rel_info">      
+      <querytext>
+      
+	select s.segment_id, r.object_id_two as party_id, t.package_name
+	  from rel_segments s, acs_rels r, acs_object_types t
+	 where r.object_id_one = s.group_id(+)
+	  and r.rel_type = s.rel_type(+)
+	  and r.rel_type = t.object_type
+	  and r.rel_id = :rel_id
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="relation_remove.relation_delete">      
+      <querytext>
+      begin ${package_name}.delete(:rel_id); end;
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="relation_remove.select_rel_info">      
+      <querytext>
+      
+	select s.segment_id, r.object_id_two as party_id, t.package_name
+	  from rel_segments s, acs_rels r, acs_object_types t
+	 where r.object_id_one = s.group_id(+)
+	  and r.rel_type = s.rel_type(+)
+	  and r.rel_type = t.object_type
+	  and r.rel_id = :rel_id
+    
+      </querytext>
+</fullquery>
+
+ 
 <fullquery name="relation_segment_has_dependant.others_depend_p">      
       <querytext>
       
@@ -38,4 +73,65 @@
 </fullquery>
 
  
+<fullquery name="relation_types_valid_to_group_multirow.select_sub_rel_types">      
+      <querytext>
+      
+	select 
+	    pretty_name, object_type, level, indent,
+	    case when valid_types.rel_type = null then 0 else 1 end as valid_p
+	from 
+	    (select
+	        t.pretty_name, t.object_type, 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 
+	        t.object_type = :start_with ) types,
+	    (select 
+	        rel_type 
+	     from 
+	        rc_valid_rel_types
+	     where 
+	        group_id = :group_id ) valid_types
+	where 
+	    types.object_type = valid_types.rel_type(+)
+	order by tree_rownum
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="relation_required_segments_multirow.select_required_rel_segments">      
+      <querytext>
+      
+	select distinct s.segment_id, s.group_id, s.rel_type,
+	       g.group_name, g.join_policy, t.pretty_name as rel_type_pretty_name,
+               nvl(dl.dependency_level, 0)
+	from rc_all_constraints c, 
+             (select rel_segment, required_rel_segment
+              from rc_segment_required_seg_map
+	      where rel_side = 'two'
+	      UNION ALL
+	      select segment_id, segment_id
+	      from rel_segments) map,
+             rel_segments s, 
+             rc_segment_dependency_levels dl,
+	     groups g, acs_object_types t
+	where c.group_id = :group_id
+	  and c.rel_type = :rel_type
+	  and c.required_rel_segment = map.rel_segment
+          and map.required_rel_segment = s.segment_id
+          and s.segment_id = dl.segment_id(+)
+	  and g.group_id = s.group_id
+	  and t.object_type = s.rel_type
+        order by nvl(dl.dependency_level, 0)
+    
+      </querytext>
+</fullquery>
+
+ 
 </queryset>