Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.44 -r1.44.2.1
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	29 Nov 2006 02:03:35 -0000	1.44
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	2 Feb 2007 16:08:41 -0000	1.44.2.1
@@ -165,9 +165,9 @@
 		    set as_assessments__show_feedback "all"
 		}
 		set resprocessNodes [$root selectNodes {/questestinterop/assessment/section/item/resprocessing}]
-		set as_assessments__survey_p {f}				
+		set as_assessments__type test			
 		if { [llength $resprocessNodes] == 0 } {				     
-		    set as_assessments__survey_p {t}
+		    set as_assessments__type survey
 		    #if it's a survey don't show feedback
 		    set as_assessments__show_feedback "none"				     
 		}			
@@ -246,7 +246,7 @@
 						       -ip_mask $as_assessments__ip_mask \
 						       -show_feedback $as_assessments__show_feedback \
 						       -section_navigation $as_assessments__section_navigation \
-						       -survey_p $as_assessments__survey_p ]			
+						       -type $as_assessments__type ]			
 		
 		# Section
 		set sectionNodes [$assessment selectNodes {section}]