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 -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}