Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/assessment/www/session.tcl	22 Nov 2004 11:40:43 -0000	1.18
+++ openacs-4/packages/assessment/www/session.tcl	25 Nov 2004 16:51:44 -0000	1.19
@@ -81,6 +81,14 @@
   }
   
   db_foreach choices {} {
+      set choice_id_answer ""
+      set text_answer ""
+      db_0or1row answer_info {
+          select aid.text_answer, aid.choice_id_answer
+	  from as_item_data aid
+	  where aid.choice_id_answer=:choice_id
+	  and (aid.session_id = :session_id or aid.session_id is null)
+    }
     if {[string length "$choice_id_answer"]} {set notanswered 0}
     set choice_correct 0
     #for fill in the blank item