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.8.2.4 -r1.8.2.5
--- openacs-4/packages/file-storage/www/file-add.tcl	26 Jul 2004 23:57:01 -0000	1.8.2.4
+++ openacs-4/packages/file-storage/www/file-add.tcl	2 Aug 2004 23:58:21 -0000	1.8.2.5
@@ -122,7 +122,8 @@
 	set upload_files [list [template::util::file::get_property filename $upload_file]]
 	set upload_tmpfiles [list [template::util::file::get_property tmp_filename $upload_file]]
     }
-    
+    set i 0
+    set number_upload_files [llength $upload_files]
     foreach upload_file $upload_files tmpfile $upload_tmpfiles {
 	set this_file_id $file_id
 	set this_title $title
@@ -157,7 +158,17 @@
 	    -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 --------------------------------------------------------------------------------"
+        if {$i < $number_upload_files} {
+            set file_id [db_nextval "acs_object_id_seq"]
+        }
     }
     
 } -edit_data {