Index: openacs-4/packages/file-storage/www/file-move-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move-2.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/file-storage/www/file-move-2.tcl	18 Sep 2002 12:09:59 -0000	1.6
+++ openacs-4/packages/file-storage/www/file-move-2.tcl	23 Jun 2003 18:47:03 -0000	1.6.2.1
@@ -26,13 +26,18 @@
 ad_require_permission $file_id write
 ad_require_permission $parent_id write
 
+set user_id [ad_conn user_id]
+set address [ad_conn peeraddr]
+
 db_transaction {
 
 db_exec_plsql file_move "
 begin
     file_storage.move_file (
     	file_id => :file_id,
-    	target_folder_id => :parent_id
+    	target_folder_id => :parent_id,
+        creation_user => :user_id,
+        creation_ip => :address:
     );
 end;"