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.23 -r1.24
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	7 Oct 2004 10:58:07 -0000	1.23
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	14 Oct 2004 11:35:50 -0000	1.24
@@ -24,7 +24,7 @@
 		if { [llength $assessmentNodes] > 0 } {
 			# There are assessments
 			foreach assessment $assessmentNodes {
-				set as_assessments__title [$assessment getAttribute {title}]
+				set as_assessments__title [$assessment getAttribute {title} {Assessment}]
 				set as_assessments__name [$assessment getAttribute {ident}]
 				set nodesList [$assessment childNodes]
 				set as_assessments__definition ""
@@ -51,7 +51,7 @@
 				set sectionNodes [$assessment selectNodes {section}]
 				foreach section $sectionNodes {
 					set as_assessment_section_map__sort_order 0
-					set as_sections__title [$section getAttribute {title}]
+					set as_sections__title [$section getAttribute {title} {Section}]
 					set as_sections__name [$section getAttribute {ident}]
 					set nodesList [$section childNodes]
 					set as_sections__definition ""
@@ -89,7 +89,7 @@
 	foreach item $itemNodes {
 		# Order of the item_choices
 		set sort_order 0
-		set as_items__title [$item getAttribute {title}]
+		set as_items__title [$item getAttribute {title} {Item}]
 		set as_items__name [$item getAttribute {ident}]
 		array set as_item_choices__correct_answer_p {}
 		array set as_item_choices__score {}
@@ -118,7 +118,7 @@
 		foreach resprocessing $resprocessingNodes {
 			set respconditionNodes [$resprocessing selectNodes {respcondition}]
 			foreach respcondition $respconditionNodes {
-				set title [$respcondition getAttribute {title} {}]
+				set title [$respcondition getAttribute {title} {Correct}]
 				if {$title == {Correct}} {
 					set correctNodes [$respcondition selectNodes {conditionvar/and/varequal/text()}]
 					foreach correct $correctNodes {
@@ -196,7 +196,7 @@
 				# The first node of the list. It may not be a good idea if it doesn't exist
 				set response_lid [lindex $response_lidNodes 0]
 				set as_item_type__name [$response_lid getAttribute {ident}]
-				set as_items__rcardinality [$response_lid getAttribute {rcardinality} {}]
+				set as_items__rcardinality [$response_lid getAttribute {rcardinality} {Single}]
 				# multiple choice either text (remember it can be internationalized or changed), images, sounds, videos
 				# this is the default
 				set as_item_display_id {}