Index: openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl	18 Feb 2005 16:32:29 -0000	1.4
+++ openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl	6 May 2005 16:46:54 -0000	1.5
@@ -8,6 +8,9 @@
     assessment_id
     by_item_p:integer
     item_id_check:optional
+} -properties {
+    title:onevalue
+    context:onevalue
 }
 
 set inter_item_check_id [split $inter_item_check_id " "]
@@ -17,7 +20,7 @@
 as::assessment::data -assessment_id $assessment_id
 set title "$assessment_data(title)"
 
-set context [list [list "one-a?assessment_id=$assessment_id" $title] [list "checks-admin?assessment_id=$assessment_id&section_id=$section_id" "$title [_ assessment.Administration]"] "[_ assessment.trigger_delete]"]
+set context [list [list index [_ assessment.admin]] [list "one-a?assessment_id=$assessment_id" $title] [list "checks-admin?assessment_id=$assessment_id&section_id=$section_id" "$title [_ assessment.Administration]"] "[_ assessment.trigger_delete]"]
 
 
 set title "[_ assessment.trigger_delete]"