Index: openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl	12 Jun 2006 02:49:51 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/assessment-delete.tcl	15 May 2007 20:14:17 -0000	1.5
@@ -36,7 +36,7 @@
 -on_submit {
     if {$confirmation} {
 	as::assessment::check::delete_assessment_checks -assessment_id $assessment_id
-	db_dml remove_assessment {}
+	as::assessment::delete -assessment_id $assessment_id
     }
 } -after_submit {
     if {$confirmation} {