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.1 -r1.2
--- openacs-4/packages/assessment/tcl/item-form-procs.tcl	10 May 2004 12:20:10 -0000	1.1
+++ openacs-4/packages/assessment/tcl/item-form-procs.tcl	28 Aug 2004 15:35:10 -0000	1.2
@@ -4,7 +4,7 @@
     @creation-date 2004-04-01
 }
 
-ad_proc -public add_item_to_form  { form item_id } { Add items to a form. The form values are stored in response_to_itrm.item_id } {
+ad_proc -public add_item_to_form  { form item_id } { Add items to a form. The form values are stored in response_to_item.item_id } {
     set element_name "response_to_item.$item_id"
     db_1row item_properties ""
     set user_value ""
@@ -15,7 +15,7 @@
 	    template::element::create $form $element_name \
 		-datatype text \
 		-widget text \
-		-label "$item_text" \
+		-label $title \
 		-value $user_value \
 		-size 40 \
 		-required_p $required_p
@@ -26,23 +26,27 @@
 	    template::element::create $form $element_name \
 		-datatype text \
 		-widget textarea \
-		-label "$item_text" \
+		-label $title \
 		-value $user_value \
 		-html $html \
 		-required_p $required_p
 	}
 
 	"radiobutton" {
 	    set widget "text(radio)"
+	    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 optionlist [list]
 	    db_foreach item_choices_2 "" {
-		lappend optionlist [list $choice_text $choice_id]
+	    ns_log notice $title
+		lappend optionlist [list $title $choice_id]
 	    }
 	    set options $optionlist
 	    template::element::create $form $element_name \
 		-datatype text \
 		-widget radio \
-		-label "$item_text" \
+		-label $title \
 		-value $user_value \
 		-options $options \
 		-required_p $required_p
@@ -58,7 +62,7 @@
 	    template::element::create $form $element_name \
 		-datatype text \
 		-widget checkbox \
-		-label "$item_text" \
+		-label $title \
 		-values $user_value \
 		-options $options \
 		-required_p $required_p