Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	27 Jun 2015 16:03:13 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -11,7 +11,7 @@
 } {
     constraint_id:naturalnum,notnull
     { operation "" }
-    { return_url "" }
+    { return_url:localurl "" }
 }
 
 permission::require_permission -object_id $constraint_id -privilege delete
@@ -44,9 +44,7 @@
         ad_script_abort
     }
     
-    db_exec_plsql delete_constraint {
-	begin rel_constraint.del(constraint_id => :constraint_id); end;
-    }
+    db_exec_plsql delete_constraint {}
     db_release_unused_handles
 
 } elseif { $return_url eq "" } {
@@ -56,3 +54,9 @@
 
 
 ad_returnredirect $return_url
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: