Index: openacs-4/packages/dotlrn-homework/www/file-move-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-move-2.tcl,v
diff -u -r1.2 -r1.2.6.1
--- openacs-4/packages/dotlrn-homework/www/file-move-2.tcl	30 Oct 2003 12:21:44 -0000	1.2
+++ openacs-4/packages/dotlrn-homework/www/file-move-2.tcl	30 Aug 2004 16:44:55 -0000	1.2.6.1
@@ -26,6 +26,9 @@
 ad_require_permission $file_id write
 ad_require_permission $parent_id write
 
+set creation_user [ad_conn user_id]
+set creation_ip [ns_conn peeraddr]
+
 db_transaction {
 
     set correction_file_id [db_string correction_file_id {} -default ""]