Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	27 Jun 2015 16:03:13 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	7 Aug 2017 23:47:58 -0000	1.8
@@ -13,7 +13,7 @@
     group_id:integer,notnull
     segment_name:notnull
     rel_type:notnull
-    { return_url "" }
+    { return_url:localurl "" }
 } -properties {
     context:onevalue
     export_vars:onevalue
@@ -54,12 +54,7 @@
 # Now let's offer to walk the user through the process of creating
 # constraints it there are any other segments
 
-if { ![db_string segments_exists_p {
-    select case when exists 
-                   (select 1 from rel_segments s where s.segment_id <> :segment_id)
-           then 1 else 0 end
-      from dual
-}] } {
+if { ![db_string segments_exists_p {}] } {
     # No more segments... can't create constraints
     ad_returnredirect $return_url
     return
@@ -70,3 +65,9 @@
 set export_vars [export_vars -form {segment_id return_url}]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: