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 -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	7 Jun 2018 16:52:40 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	3 Sep 2024 15:37:33 -0000	1.8
@@ -1,5 +1,3 @@
-# /packages/mbryzek-subsite/tcl/rel-segments-procs.tcl
-
 ad_library {
 
     Helpers for relational segments
@@ -10,7 +8,25 @@
 
 }
 
-ad_proc -public rel_segments_new {
+namespace eval rel_segment {}
+
+ad_proc -deprecated rel_segments_new args {
+    Creates a new relational segment
+
+    @author Michael Bryzek (mbryzek@arsdigita.com)
+    @creation-date 12/2000
+
+    @return The <code>segment_id</code> of the new segment
+
+    DEPRECATED: does not comply with OpenACS naming convention
+
+    @see rel_segment::new
+
+} {
+    return [rel_segment::new {*}$args]
+}
+
+ad_proc -public rel_segment::new {
     { -context_id "" }
     { -creation_user "" }
     { -creation_ip "" }
@@ -26,19 +42,19 @@
     @return The <code>segment_id</code> of the new segment
 
 } {
-    if { [ad_conn isconnected] } {
-	if { $creation_user eq "" } {
-	    set creation_user [ad_conn user_id]
-	}
-	if { $creation_ip eq "" } {
-	    set creation_ip [ad_conn peeraddr]
-	}
+    if { [ns_conn isconnected] } {
+        if { $creation_user eq "" } {
+            set creation_user [ad_conn user_id]
+        }
+        if { $creation_ip eq "" } {
+            set creation_ip [ad_conn peeraddr]
+        }
     }
     return [db_exec_plsql create_rel_segment {}]
 
 }
 
-ad_proc -public rel_segments_delete {
+ad_proc -deprecated rel_segments_delete {
     segment_id
 } {
     Deletes the specified relational segment including all relational
@@ -47,14 +63,30 @@
     @author Michael Bryzek (mbryzek@arsdigita.com)
     @creation-date 1/12/2001
 
+    DEPRECATED: does not comply with OpenACS naming convention
+
+    @see rel_segment::delete
 } {
+    return [rel_segment::delete $segment_id]
+}
+
+ad_proc -public rel_segment::delete {
+    segment_id
+} {
+    Deletes the specified relational segment including all relational
+    constraints that depend on it.
+
+    @author Michael Bryzek (mbryzek@arsdigita.com)
+    @creation-date 1/12/2001
+
+} {
     # First delete dependent constraints.
     db_foreach select_dependent_constraints {
-	select c.constraint_id
-	  from rel_constraints c
-	 where c.required_rel_segment = :segment_id
+        select c.constraint_id
+          from rel_constraints c
+         where c.required_rel_segment = :segment_id
     } {
-	db_exec_plsql constraint_delete {}
+        db_exec_plsql constraint_delete {}
     }
 
     db_exec_plsql rel_segment_delete {}