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.9 -r1.10
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 11:06:03 -0000	1.9
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 13:45:03 -0000	1.10
@@ -26,16 +26,21 @@
 			foreach assessment $assessmentNodes {
 				set as_assessments__name [$assessment getAttribute {title}]
 				set nodesList [$assessment childNodes]
+				set as_assessments__definition "NULL"
 				foreach node $nodesList {
 					set nodeName [$node nodeName]
 					if {$nodeName == "qticomment"} {
 						set definitionNodes [$assessment selectNodes {qticomment/text()}]
-						set definition [lindex $definitionNodes 0]
-						set as_assessments__definition [$definition nodeValue]
+						if {[llength $definitionNodes] != 0} {
+							set definition [lindex $definitionNodes 0]
+							set as_assessments__definition [$definition nodeValue]
+						}
 					} elseif {$nodeName == "objectives"} {
 						set definitionNodes [$assessment selectNodes {objectives/material/mattext/text()}]
-						set definition [lindex $definitionNodes 0]
-						set as_assessments__definition [$definition nodeValue]
+						if {[llength $definitionNodes] != 0} {
+							set definition [lindex $definitionNodes 0]
+							set as_assessments__definition [$definition nodeValue]
+						}
 					}
 				}
 				# assessment_id
@@ -47,13 +52,15 @@
 				foreach section $sectionNodes {
 					set as_sections__name [$section getAttribute {title}]
 					set nodesList [$section childNodes]
-					set as_sections__definition "N"
+					set as_sections__definition "NULL"
 					foreach node $nodesList {
 						set nodeName [$node nodeName]
 						if {$nodeName == "qticomment"} {
 							set definitionNodes [$section selectNodes {qticomment/text()}]
-							set definition [lindex $definitionNodes 0]
-							set as_sections__definition [$definition nodeValue]
+							if {[llength $definitionNodes] != 0} {
+								set definition [lindex $definitionNodes 0]
+								set as_sections__definition [$definition nodeValue]
+							}
 						}
 					}
 					set as_sections__section_id [expr [db_exec_plsql as_sections_section_id {}] + 1]