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 -N -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 -N -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) - + - +