Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	27 Oct 2014 16:39:46 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	7 Aug 2017 23:47:58 -0000	1.6
@@ -34,18 +34,7 @@
 	    set creation_ip [ad_conn peeraddr]
 	}
     }
-    return [db_exec_plsql create_rel_segment {
-      declare
-      begin 
-	:1 := rel_segment.new(segment_name => :segment_name,
-                                  group_id => :group_id,
-                                  context_id => :context_id,
-                                  rel_type => :rel_type,
-                                  creation_user => :creation_user,
-                                  creation_ip => :creation_ip
-                                 );
-      end;
-    }]
+    return [db_exec_plsql create_rel_segment {}]
 
 }
 
@@ -59,20 +48,16 @@
     @creation-date 1/12/2001
 
 } {
-    # First delete dependant constraints.
-    db_foreach select_dependant_constraints {
+    # First delete dependent constraints.
+    db_foreach select_dependent_constraints {
 	select c.constraint_id
 	  from rel_constraints c
 	 where c.required_rel_segment = :segment_id
     } {
-	db_exec_plsql constraint_delete {
-	    begin rel_constraint.del(:constraint_id); end;
-	}
+	db_exec_plsql constraint_delete {}
     }
 
-    db_exec_plsql rel_segment_delete {
-	begin rel_segment.del(:segment_id); end;
-    }
+    db_exec_plsql rel_segment_delete {}
     
 }
 
@@ -92,3 +77,9 @@
     return [permission::permission_p -party_id $user_id -object_id $segment_id -privilege $privilege]
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: