Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs-oracle.xql,v
diff -u -r1.3 -r1.3.26.1
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs-oracle.xql 30 Sep 2003 12:10:03 -0000 1.3
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs-oracle.xql 13 Dec 2019 14:09:23 -0000 1.3.26.1
@@ -3,11 +3,11 @@
oracle8.1.6
-
+
-
+
declare
- begin
+ begin
:1 := rel_segment.new(segment_name => :segment_name,
group_id => :group_id,
context_id => :context_id,
@@ -16,27 +16,27 @@
creation_ip => :creation_ip
);
end;
-
+
-
-
+
+
-
+
begin rel_constraint.del(:constraint_id); end;
-
+
-
-
+
+
-
+
begin rel_segment.del(:segment_id); end;
-
+
-
+
Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql,v
diff -u -r1.3 -r1.3.26.1
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql 17 May 2003 09:58:37 -0000 1.3
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql 13 Dec 2019 14:09:23 -0000 1.3.26.1
@@ -3,7 +3,7 @@
postgresql7.1
-
+
select rel_segment__new(
@@ -19,27 +19,27 @@
:rel_type,
:context_id
)
-
+
-
-
+
+
select rel_constraint__delete(:constraint_id)
-
+
-
-
+
+
select rel_segment__delete(:segment_id)
-
+
-
+