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