Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	21 Jan 2005 14:25:07 -0000	1.9
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	27 Apr 2005 11:27:22 -0000	1.10
@@ -66,6 +66,14 @@
 
     @see content::symlink::new content::extlink::new content::folder::new
 } {
+    if {[empty_string_p $creation_user]} {
+        set creation_user [ad_conn user_id]
+    }
+
+    if {[empty_string_p $creation_ip]} {
+        set creation_ip [ad_conn peeraddr]
+    }
+
     set var_list [list]
     lappend var_list \
         [list name $name] \