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.10 -r1.11
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	17 Nov 2004 17:16:07 -0000	1.10
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	22 Nov 2004 11:40:42 -0000	1.11
@@ -62,8 +62,13 @@
 						}
 					}
 				}
+				set resprocessNodes [$root selectNodes {/questestinterop/assessment/section/item/resprocessing}]
+				set as_assessments__survey_p {f}				
+				if { [llength $resprocessNodes] == 0 } {				     
+				     set as_assessments__survey_p {t}				     
+				}				
 				# Insert assessment in the CR (and as_assessments table) getting the revision_id (assessment_id)
-				set as_assessments__assessment_id [as::assessment::new -title $as_assessments__title -description $as_assessments__definition -instructions $as_assessments__instructions]
+				set as_assessments__assessment_id [as::assessment::new -title $as_assessments__title -description $as_assessments__definition -instructions $as_assessments__instructions -survey_p $as_assessments__survey_p]
 				
 				# Section
 				set sectionNodes [$assessment selectNodes {section}]