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.4 --- 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 3 Sep 2024 15:37:33 -0000 1.4 @@ -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; - + - +