Index: openacs-4/packages/acs-content-repository/tcl/item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/Attic/item-procs.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	19 Feb 2003 13:38:29 -0000	1.5.2.1
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	20 Mar 2003 22:11:36 -0000	1.5.2.2
@@ -263,3 +263,25 @@
    
   return $file_url
 } 
+
+ad_proc item::copy {
+    -item_id:required
+    -target_folder_id:required
+} {
+
+    Copy the given item.
+
+    @param item_id The content item to copy
+    @param target_folder_id The folder which will hold the new copy
+
+} {
+
+    set creation_user [ad_conn user_id]
+    set creation_ip [ad_conn peeraddr]
+
+    db_exec_plsql copy_item {}
+
+}
+
+} {
+