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 -r1.6
--- openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	19 Sep 2002 13:08:43 -0000	1.5
+++ openacs-4/packages/acs-content-repository/tcl/item-procs.tcl	17 May 2003 09:43:54 -0000	1.6
@@ -229,7 +229,7 @@
       if { ![template::util::is_nil template_revision_id] } {
         get_mime_info $template_revision_id mime_info   
 
-        if { [info exists mime_info] } {
+        if { [info exists mime_info(file_extension)] } {
           set file_extension $mime_info(file_extension)
         }
       }
@@ -252,10 +252,33 @@
     }
 
     get_mime_info $revision_id mime_info   
-    set file_extension $mime_info(file_extension)
+    if { [info exists mime_info(file_extension)] } {
+        set file_extension $mime_info(file_extension)
+    } else { 
+        set file_extension "html"
+    }
   }
 
   append file_url ".$file_extension"
    
   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 {}
+
+}