Index: openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/relation-procs-postgresql.xql	7 Aug 2017 23:47:58 -0000	1.7
@@ -5,42 +5,34 @@
 
 <fullquery name="relation_add.select_rel_violation">      
       <querytext>
-      
-	    select rel_constraint__violation(:rel_id) 
-	
+        select rel_constraint__violation(:rel_id) 
       </querytext>
 </fullquery>
 
  
 <fullquery name="relation_remove.relation_delete">      
       <querytext>
-      begin perform ${package_name}__delete(:rel_id); return null; end;
+        select ${package_name}__delete(:rel_id) from dual
       </querytext>
 </fullquery>
 
  
-<fullquery name="relation_segment_has_dependant.others_depend_p">      
+<fullquery name="relation_segment_has_dependent.others_depend_p">      
       <querytext>
-      
 	    select case when exists
 	             (select 1 from rc_violations_by_removing_rel r where r.rel_id = :rel_id)
 	           then 1 else 0 end
-	      
-    
       </querytext>
 </fullquery>
 
  
 <fullquery name="relation_type_is_valid_to_group_p.rel_type_valid_p">      
       <querytext>
-      
 	    select case when exists
 	             (select 1 from rc_valid_rel_types r 
                       where r.group_id = :group_id 
                         and r.rel_type = :rel_type)
 	           then 1 else 0 end
-	      
-    
       </querytext>
 </fullquery>