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.3 -r1.4
--- openacs-4/packages/assessment/www/admin/assessment-delete.tcl	27 Jan 2005 18:08:40 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/assessment-delete.tcl	28 Jan 2005 20:33:19 -0000	1.4
@@ -33,7 +33,7 @@
 } -select_query_name {assessment_title} \
 -on_submit {
     if {$confirmation} {
-	as::assessment::check::delete_assessment_checks -assessment_rev_id $assessment_rev_id
+	as::assessment::check::delete_assessment_checks -assessment_id $assessment_id
 	db_dml remove_assessment {}
     }
 } -after_submit {