Index: openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/Attic/assessment-qti-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 11:02:03 -0000	1.8
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 11:06:03 -0000	1.9
@@ -29,17 +29,13 @@
 				foreach node $nodesList {
 					set nodeName [$node nodeName]
 					if {$nodeName == "qticomment"} {
-						debug_print 1 "nodo:" $nodeName
 						set definitionNodes [$assessment selectNodes {qticomment/text()}]
 						set definition [lindex $definitionNodes 0]
 						set as_assessments__definition [$definition nodeValue]
-						debug_print 1 "as_assessments__definition" $as_assessments__definition
 					} elseif {$nodeName == "objectives"} {
-						debug_print 1 "nodo:" $nodeName
 						set definitionNodes [$assessment selectNodes {objectives/material/mattext/text()}]
 						set definition [lindex $definitionNodes 0]
 						set as_assessments__definition [$definition nodeValue]
-						debug_print 1 "as_assessments__definition" $as_assessments__definition
 					}
 				}
 				# assessment_id
@@ -55,11 +51,9 @@
 					foreach node $nodesList {
 						set nodeName [$node nodeName]
 						if {$nodeName == "qticomment"} {
-							debug_print 1 "nodo:" $nodeName
 							set definitionNodes [$section selectNodes {qticomment/text()}]
 							set definition [lindex $definitionNodes 0]
 							set as_sections__definition [$definition nodeValue]
-							debug_print 1 "as_sections__definition" $as_sections__definition
 						}
 					}
 					set as_sections__section_id [expr [db_exec_plsql as_sections_section_id {}] + 1]