Index: openacs-4/packages/assessment/www/admin/unzip-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/unzip-file.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/unzip-file.tcl	21 Sep 2004 17:35:40 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/unzip-file.tcl	22 Sep 2004 19:37:30 -0000	1.2
@@ -20,11 +20,9 @@
 # UNZIP the zip file in the temporary directory
 catch { exec unzip ${zipfile.tmpfile} -d $tmpdirectory } outMsg
 
-set qti_items_imported_number 0
 # Read the content of the temporary directory
 foreach file_i [ glob -directory $tmpdirectory *{.xml}  ] {
-	set items [llength [parse_qti_xml $file_i]]
-	set qti_items_imported_number [expr [llength items]  + $qti_items_imported_number]	
+	parse_qti_xml $file_i
 }
 
 # Delete the temporary directory