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<img src=\"view/?revision_id=$content_value\">" $choice_id]
+	        if {![empty_string_p $content_value]} {
+		    lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $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<img src=\"view/?revision_id=$content_value\">" $choice_id]
+	        if {![empty_string_p $content_value]} {
+		    lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $choice_id]
+		} else {
+		    lappend optionlist [list $title $choice_id]
+		}    
 	    }
 	    set options $optionlist
 	    template::element::create $form $element_name \