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 -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl	6 May 2005 16:46:54 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/confirm-delete.tcl	31 May 2005 23:13:02 -0000	1.5.2.1
@@ -8,9 +8,6 @@
     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 " "]
@@ -20,7 +17,7 @@
 as::assessment::data -assessment_id $assessment_id
 set title "$assessment_data(title)"
 
-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 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 title "[_ assessment.trigger_delete]"