Index: openacs-4/packages/forums/tcl/forums-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-callback-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/forums/tcl/forums-callback-procs.tcl	23 Sep 2005 14:45:28 -0000	1.1.2.3
+++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl	10 Oct 2005 12:59:35 -0000	1.1.2.4
@@ -96,25 +96,45 @@
      -object_id:required
      -selected_community:required
 } {
-    Move a faq to another class or community
+    Move a forum to another class or community
 } {
 
+#get the new_package_id
+set new_package_id [forum::get_forum_package -community_id $selected_community]   
+
 #update forums_forums table
 db_dml update_forums {}
 #update acs_objects table (because data redundancy)
 db_dml update_forums_acs_objects {}
 }
 
 
+ad_proc -public -callback datamanager::delete_forum -impl datamanager {
+     -object_id:required
+} {
+    Move a forum to the trash
+} {
+
+#get trash_id
+set trash_package_id [datamanager::get_trash_package_id]    
+
+
+#update forums_forums table
+db_dml del_update_forums {}
+#update acs_objects table (because data redundancy)
+db_dml del_update_forums_acs_objects {}
+}
+
+
 ad_proc -public -callback datamanager::copy_forum -impl datamanager {
      -object_id:required
      -selected_community:required
 } {
-    Move a faq to another class or community
+    Copy a forum to another class or community
 } {
 #get forum's data
     set forum_id [db_nextval acs_object_id_seq]   
-    db_1row get_forum_package_id {}
+    set package_id [forum::get_forum_package -community_id $selected_community]
     db_1row get_forum_data {}
     
 #create the new forums