Index: openacs-4/packages/acs-kernel/sql/oracle/rel-segments-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/rel-segments-body-create.sql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-kernel/sql/oracle/rel-segments-body-create.sql	21 Mar 2003 14:57:44 -0000	1.4
+++ openacs-4/packages/acs-kernel/sql/oracle/rel-segments-body-create.sql	30 Sep 2003 12:10:02 -0000	1.5
@@ -47,7 +47,7 @@
   return v_segment_id;
  end new;
 
- procedure delete (
+ procedure del (
    segment_id     in rel_segments.segment_id%TYPE
  )
  is
@@ -56,15 +56,15 @@
    -- remove all constraints on this segment
    for row in (select constraint_id 
                  from rel_constraints 
-                where rel_segment = rel_segment.delete.segment_id) loop
+                where rel_segment = rel_segment.del.segment_id) loop
 
-       rel_constraint.delete(row.constraint_id);
+       rel_constraint.del(row.constraint_id);
 
    end loop;
 
-   party.delete(segment_id);
+   party.del(segment_id);
 
- end delete;
+ end del;
 
  -- EXPERIMENTAL / UNSTABLE -- use at your own risk
  --
