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.10.2.6 -r1.10.2.7
--- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	7 Jan 2006 07:59:40 -0000	1.10.2.6
+++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl	8 Jan 2006 14:52:43 -0000	1.10.2.7
@@ -70,18 +70,7 @@
 
     @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]
-    }
-
-    if {[empty_string_p $package_id]} {
-        set package_id [ad_conn package_id]
-    }
-
     set var_list [list]
     lappend var_list \
         [list name $name] \