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 segment_id
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 segment_id
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 {}