Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/file-storage/www/file-add.tcl	13 Jan 2005 13:58:13 -0000	1.11
+++ openacs-4/packages/file-storage/www/file-add.tcl	24 Feb 2005 13:33:19 -0000	1.12
@@ -153,19 +153,14 @@
 	    -title $this_title \
 	    -description $description \
 	    -package_id $package_id
-	incr i
-        ns_log notice "
-DB --------------------------------------------------------------------------------
-DB DAVE debugging /var/lib/aolserver/openacs-5-1/packages/file-storage/www/file-add.tcl
-DB --------------------------------------------------------------------------------
-DB i = '${i}'
-DB number_upload_files = '${number_upload_files}'
-DB --------------------------------------------------------------------------------"
+
+        file delete $tmpfile
+        incr i
         if {$i < $number_upload_files} {
             set file_id [db_nextval "acs_object_id_seq"]
         }
     }
-    
+    file delete $upload_file.tmpfile
 } -edit_data {
 
     fs::add_version \