Index: openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl	7 Apr 2005 23:01:29 -0000	1.6
+++ openacs-4/packages/assessment/www/asm-admin/add-edit-check.tcl	1 Aug 2005 15:54:46 -0000	1.6.2.1
@@ -127,11 +127,11 @@
     
 } -edit_request {
     db_1row get_check_properties {}
-    set condition_sql [db_string get_item_id {}] 
+    set condition_sql $check_sql
     #parse condition_sql to get choice_id
     set cond_list  [split $condition_sql "="]
-    #set condition [string range [lindex $cond_list 1] 0 3]
-    set condition [lindex [split [lindex $cond_list 1] " "] 0]
+    set condition [lindex [split [lindex $cond_list 1] ")"] 0]
+    #ad_return_complaint 1 "${condition} $choices"
     
 } -edit_data {
     set check_sql [as::assessment::check::get_sql -condition $condition -item_id $item_id]