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 -N -r1.4 -r1.5
--- openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	4 Nov 2004 12:53:56 -0000	1.4
+++ openacs-4/packages/assessment/tcl/as-item-form-procs.tcl	17 Nov 2004 17:16:07 -0000	1.5
@@ -17,11 +17,12 @@
     db_0or1row as_item_display_tbx "SELECT item_id AS as_item_display_tbx__item_id FROM as_item_display_tbx WHERE item_id=:item_display_id"
     db_0or1row as_item_display_tax "SELECT item_id AS as_item_display_tax__item_id FROM as_item_display_tax WHERE item_id=:item_display_id"
     set presentation_type "checkbox" ;# DEFAULT
+    #get the presentation type
     if {[info exists as_item_display_rbx__item_id]} {set presentation_type "radio"}
     if {[info exists as_item_display_tbx__item_id]} {set presentation_type "fitb"}
     if {[info exists as_item_display_tax__item_id]} {set presentation_type "textarea"}
 
-    #Add the items depending on the type (as_item_display_types)
+    #Add the items depending on the presentation type (as_item_display_types)
     switch -- $presentation_type {
 	"textbox" {
 	    template::element::create $form $element_name \
@@ -52,6 +53,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 "" {
+	        #for multiple choice item with multimedia
 	        if {![empty_string_p $content_value]} {
 		    lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $choice_id]
 		} else {
@@ -75,6 +77,7 @@
 	    set choices [list]
 	    set optionlist [list]
 	    db_foreach item_choices_2 "" {
+	        #for multiple choice item with multimedia
 	        if {![empty_string_p $content_value]} {
 		    lappend optionlist [list "$title<img src=\"view/?revision_id=$content_value\">" $choice_id]
 		} else {