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.10 -r1.11
--- openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 13:45:03 -0000	1.10
+++ openacs-4/packages/assessment/tcl/assessment-qti-procs.tcl	3 Jun 2004 16:29:47 -0000	1.11
@@ -10,6 +10,7 @@
 	set file_id [open $xmlfile r]
 	set file_string [read $file_id]
 	close $file_id
+	set numItems 0
 	
 	# Parser
 	# XML => DOM document
@@ -69,14 +70,15 @@
 					# Relation between as_sections and as_assessments
 					db_dml as_assessment_section_map_insert {}
 					# Process the items
-					parse_item $section $as_sections__section_id
+					set numItems [parse_item $section $as_sections__section_id]
 				}
 			}
 		} else {
 			# Just items (no assessments)
-			parse_item $questestinterop 0
+			set numItems [parse_item $questestinterop 0]
 		}
 	}
+	return $numItems
 }
 
 ad_proc -private parse_item { qtiNode section_id} { Parse items from a XML QTI file } {
@@ -162,4 +164,5 @@
 			db_dml as_item_section_map_insert {}
 		}
 	}
+	return [llength $itemNodes]
 }