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.2 -r1.1.2.3
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	21 Jun 2005 21:22:12 -0000	1.1.2.2
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	20 Jul 2005 15:49:30 -0000	1.1.2.3
@@ -24,3 +24,20 @@
     {-file_id:required}
 } {
 }
+
+ad_proc -public -callback datamanager::move_folder -impl datamanager {
+     -object_id:required
+     -selected_community:required
+} {
+    Move a folder to another class or community
+} {
+
+#get the working package
+db_1row get_working_package {}
+set root_folder_id [fs::get_root_folder -package_id $package_id]
+    
+#update forums_forums table    
+db_dml update_cr_items {}
+db_dml update_acs_objects {}
+}
+