Index: openacs-4/packages/assessment/www/asm-admin/checks-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/checks-delete.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/checks-delete.tcl 18 Feb 2005 15:39:41 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/checks-delete.tcl 18 Feb 2005 16:32:28 -0000 1.4 @@ -9,7 +9,8 @@ by_item_p item_id:optional } -set inter_item_check_id [split $inter_item_check_id " "] +set inter_item_check_id [split [lindex $inter_item_check_id 0] " "] + set count [llength $inter_item_check_id] for { set i 0} { $i< $count } {incr i} {