Index: openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs-oracle.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql	16 Jan 2004 18:29:32 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/item-procs-oracle.xql	6 May 2004 13:01:39 -0000	1.6
@@ -70,6 +70,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="item::delete.delete_item">
+      <querytext>
+ 
+       begin
+        content_item.delete(:item_id);
+        end;
+  
+      </querytext>
+</fullquery>
+
 <fullquery name="item::copy.copy_item">      
       <querytext>
       
Index: openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs-postgresql.xql,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql	27 Mar 2004 13:32:25 -0000	1.9
+++ openacs-4/packages/acs-content-repository/tcl/item-procs-postgresql.xql	6 May 2004 13:01:39 -0000	1.10
@@ -72,6 +72,14 @@
       </querytext>
 </fullquery>
 
+<fullquery name="item::delete.delete_item">
+      <querytext>
+
+        selete content_item__delete(:item_id)
+  
+      </querytext>
+</fullquery>
+
 <fullquery name="item::copy.copy_item">      
       <querytext>
       
Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	16 Jan 2004 18:29:32 -0000	1.18
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	6 May 2004 13:01:39 -0000	1.19
@@ -666,6 +666,17 @@
     return [get_revision_content $revision_id $item_id]
 }
 
+ad_proc -public item::delete {
+    {-item_id:required}
+} {
+    Delete a content item from the database. If the content item
+    to delete has children content items referencing its parent
+    via acs_objects.context_id then this proc will fail.
+
+    @author Peter Marklund
+} {
+    db_exec_plsql delete_item {}    
+}
   
 ad_proc -public item::publish {
     {-item_id:required}