Index: openacs-4/packages/assessment/tcl/item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/item-form-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/item-form-procs.tcl	28 Aug 2004 15:35:10 -0000	1.2
+++ openacs-4/packages/assessment/tcl/item-form-procs.tcl	21 Sep 2004 15:07:11 -0000	1.3
@@ -39,7 +39,6 @@
 	    set mc_id [db_string item_to_rev "SELECT revision_id FROM cr_revisions WHERE item_id=:item_mc_id"]
 	    set optionlist [list]
 	    db_foreach item_choices_2 "" {
-	    ns_log notice $title
 		lappend optionlist [list $title $choice_id]
 	    }
 	    set options $optionlist
@@ -53,10 +52,13 @@
 	}
 
 	"checkbox" {
+	    set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:item_id"]
+	    set item_mc_id [db_string item_item_type "SELECT related_object_id FROM cr_item_rels WHERE item_id=:item_item_id"]
+	    set mc_id [db_string item_to_rev "SELECT revision_id FROM cr_revisions WHERE item_id=:item_mc_id"]
 	    set choices [list]
 	    set optionlist [list]
-	    db_foreach item_choices_3 "" {
-		lappend optionlist [list $choice_text $choice_id]
+	    db_foreach item_choices_2 "" {
+		lappend optionlist [list $title $choice_id]
 	    }
 	    set options $optionlist
 	    template::element::create $form $element_name \