Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/ams/tcl/ams-procs.tcl	18 May 2005 17:11:48 -0000	1.8
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	21 May 2005 20:59:03 -0000	1.9
@@ -129,6 +129,15 @@
     }
 }
 
+ad_proc -public ams::object_delete {
+    {-object_id:required}
+} {
+    delete and object that uses ams attributes
+} {
+    return [db_dml delete_object { delete from ams_attribute_values where object_id = :object_id }]
+}
+
+
 ad_proc -public ams::attribute::get {
     -attribute_id:required
     -array:required