Index: openacs-4/packages/assessment/www/admin/assessment-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/assessment-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/assessment-delete.tcl	24 Jan 2005 14:54:31 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/assessment-delete.tcl	27 Jan 2005 18:08:40 -0000	1.3
@@ -33,6 +33,7 @@
 } -select_query_name {assessment_title} \
 -on_submit {
     if {$confirmation} {
+	as::assessment::check::delete_assessment_checks -assessment_rev_id $assessment_rev_id
 	db_dml remove_assessment {}
     }
 } -after_submit {