Index: openacs-4/packages/assessment/www/process-response.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/process-response.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/process-response.tcl	5 Nov 2004 00:34:56 -0000	1.8
+++ openacs-4/packages/assessment/www/process-response.tcl	17 Nov 2004 17:16:08 -0000	1.9
@@ -15,46 +15,57 @@
 
 # FIXME Check staff_id or subject_id against user_id
 
+# update the last_mod_datetime col of as_sessions table to set the time when the most recent submission of assessment was done
 db_dml session_finished {UPDATE as_sessions SET last_mod_datetime = NOW(), completed_datetime = NOW() WHERE session_id = :as_session_id}
 
 foreach response_to_item_name [array names response_to_item] {
+    #reset variables
     set as_item_display_rbx__item_id {}
     unset as_item_display_rbx__item_id
     set as_item_display_tbx__item_id {}
     unset as_item_display_tbx__item_id
     set as_item_display_tax__item_id {}
     unset as_item_display_tax__item_id
+    #get the choice identifier from response_to_item array
     regsub -all -line -nocase -- {.*_} $response_to_item_name {} response_to_item_choice_id
+    #get the item identifier from response_to_item array
     regsub -all -line -nocase -- {_.*} $response_to_item_name {} response_to_item_id 
     set item_item_id [db_string cr_item_from_revision "select item_id from cr_revisions where revision_id=:response_to_item_id"]
     set item_display_id [db_string item_item_type "SELECT related_object_id FROM cr_item_rels WHERE relation_tag = 'as_item_display_rel' AND item_id=:item_item_id"]
     db_0or1row as_item_display_rbx "SELECT item_id AS as_item_display_rbx__item_id FROM as_item_display_rbx WHERE item_id=:item_display_id"
     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
+    #set 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"}
 
+    # the presentation type is textbox (fill in the blank item)
     if {[info exists as_item_display_tbx__item_id]} {
         db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.choice_id_answer=:response_to_item_choice_id AND as_item_datax.session_id=:as_session_id} {
             content::item::delete -item_id $item_id
         }
+	#insert the answered responses by user in the CR (and as_item_data table) 
         foreach response $response_to_item($response_to_item_name) {
             as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_id_answer $response_to_item_choice_id -text_answer $response
         }
     } else {
+        #the presentation type is textarea (short answer item)
         if {[info exists as_item_display_tax__item_id]} {
             db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} {
         content::item::delete -item_id $item_id
         }
+	#insert the response in the CR (and as_item_data table)
         foreach response $response_to_item($response_to_item_name) {
             as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -text_answer $response
         } 
+	#other types of items (presentation type is checkbox or radio)
        } else {
         db_foreach session_responses_to_item {SELECT as_item_datax.item_id FROM as_item_datax WHERE as_item_datax.as_item_id=:response_to_item_id AND as_item_datax.session_id=:as_session_id} {
         content::item::delete -item_id $item_id
         }
+	#insert the answered responses by user in the CR (and as_item_data table)
         foreach response $response_to_item($response_to_item_name) {
             as::item_data::new -session_id $as_session_id -as_item_id $response_to_item_id -choice_id_answer $response
         }