Index: openacs-4/packages/assessment/www/unzip_file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/unzip_file.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/unzip_file.tcl	3 Jun 2004 16:26:22 -0000	1.3
+++ openacs-4/packages/assessment/www/unzip_file.tcl	15 Sep 2004 19:43:20 -0000	1.4
@@ -23,8 +23,8 @@
 set qti_items_imported_number 0
 # Read the content of the temporary directory
 foreach file_i [ glob -directory $tmpdirectory *{.xml}  ] {
-	set numItems [parse_qti_xml $file_i]
-	set qti_items_imported_number [expr $numItems  + $qti_items_imported_number]	
+	set items [llength [parse_qti_xml $file_i]]
+	set qti_items_imported_number [expr [llength items]  + $qti_items_imported_number]	
 }
 
 # Delete the temporary directory