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.2 -r1.3
--- openacs-4/packages/assessment/www/unzip_file.tcl	12 May 2004 16:22:08 -0000	1.2
+++ openacs-4/packages/assessment/www/unzip_file.tcl	3 Jun 2004 16:26:22 -0000	1.3
@@ -23,8 +23,8 @@
 set qti_items_imported_number 0
 # Read the content of the temporary directory
 foreach file_i [ glob -directory $tmpdirectory *{.xml}  ] {
-    parse_qti_xml $file_i
-    incr qti_items_imported_number
+	set numItems [parse_qti_xml $file_i]
+	set qti_items_imported_number [expr $numItems  + $qti_items_imported_number]	
 }
 
 # Delete the temporary directory