Index: openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	7 Oct 2005 08:55:08 -0000	1.1.2.6
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	10 Oct 2005 12:59:35 -0000	1.1.2.7
@@ -48,3 +48,32 @@
 db_dml update_acs_objects {}
 }
 
+ad_proc -public -callback datamanager::delete_folder -impl datamanager {
+     -object_id:required
+} {
+    Move a folder to the trash
+} {
+
+#get the trash_id
+set trash_id [datamanager::get_trash_id]
+
+    
+#update forums_forums table    
+db_dml del_update_cr_items {}
+db_dml del_update_acs_objects {}
+}
+
+
+
+ad_proc -public -callback datamanager::copy_folder -impl datamanager {
+     -object_id:required
+     -selected_community:required
+} {
+    Copy a folder to another class or community
+} {
+#get the destiny's root folder
+    set parent_id [dotlrn_fs::get_community_root_folder -community_id $selected_community]
+
+    fs_folder_copy -old_folder_id $object_id -new_parent_id $parent_id
+    
+}