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 -N -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql 10 Nov 2006 21:40:34 -0000 1.4 +++ openacs-4/packages/acs-subsite/tcl/relation-procs-oracle.xql 7 Aug 2017 23:47:58 -0000 1.5 @@ -33,23 +33,9 @@ - + - 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 - - - - - - - - select case when exists (select 1 from rc_violations_by_removing_rel r where r.rel_id = :rel_id) then 1 else 0 end