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.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	14 Oct 2004 11:44:51 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	27 Oct 2004 13:51:09 -0000	1.2
@@ -52,7 +52,7 @@
 	    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]
+		lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $choice_id]
 	    }
 	    set options $optionlist
 	    template::element::create $form $element_name \
@@ -71,7 +71,7 @@
 	    set choices [list]
 	    set optionlist [list]
 	    db_foreach item_choices_2 "" {
-		lappend optionlist [list $title $choice_id]
+		lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $choice_id]
 	    }
 	    set options $optionlist
 	    template::element::create $form $element_name \