Index: openacs-4/packages/assessment/www/assessment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/assessment/www/assessment.tcl	25 Jan 2005 15:14:36 -0000	1.27
+++ openacs-4/packages/assessment/www/assessment.tcl	25 Jan 2005 15:36:29 -0000	1.28
@@ -21,6 +21,7 @@
 set page_title "[_ assessment.Show_Items]"
 set context_bar [ad_context_bar $page_title]
 set section_to ""
+set item_to ""
 # Get the assessment data
 as::assessment::data -assessment_id $assessment_id
 
@@ -277,6 +278,7 @@
 		    set response_to_item(\$response_item_id) \"\"
 		} else {
                    ns_log \"--------------> branch check\"
+                  
                    set section_to_tmp \[as::assessment::checks::branch_checks -item_id \$response_item_id -response \$response_to_item(\$response_item_id) -session_id $session_id -assessment_id $assessment_id\ -section_id $section_id]
                    if { \$section_to_tmp != \"f\" && \$section_to_tmp != \"f\"} {
                            set section_to \$section_to_tmp
@@ -323,7 +325,8 @@
 		    set response_to_item(\$response_item_id) \"\"
 		} else {
                    ns_log notice \"--------------> branch check \$response_item_id \"
-                   set section_to_tmp \[as::assessment::check::branch_checks -item_id \$response_item_id -response \$response_to_item(\$response_item_id) -session_id $session_id -assessment_id $assessment_id\ -section_id $section_id]
+                   set item_to \$response_item_id
+                   set section_to_tmp \[as::assessment::check::branch_checks -item_id_to \$item_to -response \$response_to_item(\$response_item_id) -session_id $session_id -assessment_id $assessment_id\ -section_id $section_id]
                    if { \$section_to_tmp != \"f\" && \$section_to_tmp != \"f\"} {
                            set section_to \$section_to_tmp
                     }