Index: openacs-4/packages/assessment/tcl/as-item-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-form-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl 27 Oct 2004 13:53:49 -0000 1.3
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl 4 Nov 2004 12:53:56 -0000 1.4
@@ -52,7 +52,11 @@
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 "$title" $choice_id]
+ if {![empty_string_p $content_value]} {
+ lappend optionlist [list "$title" $choice_id]
+ } else {
+ lappend optionlist [list $title $choice_id]
+ }
}
set options $optionlist
template::element::create $form $element_name \
@@ -71,7 +75,11 @@
set choices [list]
set optionlist [list]
db_foreach item_choices_2 "" {
- lappend optionlist [list "$title" $choice_id]
+ if {![empty_string_p $content_value]} {
+ lappend optionlist [list "$title" $choice_id]
+ } else {
+ lappend optionlist [list $title $choice_id]
+ }
}
set options $optionlist
template::element::create $form $element_name \