Index: openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql	19 May 2003 13:10:17 -0000	1.3
+++ openacs-4/packages/categories/tcl/category-trees-procs-postgresql.xql	14 Dec 2003 15:33:26 -0000	1.4
@@ -21,7 +21,7 @@
  
 <fullquery name="category_tree::copy.copy_tree">      
       <querytext>
-	    select category_tree__copy(:source_tree,:dest_tree)
+	    select category_tree__copy(:source_tree, :dest_tree, :creation_user, :creation_ip)
       </querytext>
 </fullquery>
 
Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	19 May 2003 13:10:17 -0000	1.3
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	14 Dec 2003 15:33:26 -0000	1.4
@@ -66,6 +66,8 @@
 	@option dest_tree tree_id of the category tree to copy into.
 	@author Timo Hentschel (thentschel@sussdorff-roy.com)
     } {
+	set creation_user [ad_conn user_id]
+	set creation_ip [ad_conn peeraddr]
 	db_exec_plsql copy_tree ""
 	flush_cache $dest_tree
 	flush_translation_cache $dest_tree