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.7 -r1.1.2.8
--- openacs-4/packages/forums/tcl/forums-callback-procs.tcl	16 Nov 2005 11:24:19 -0000	1.1.2.7
+++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl	3 Mar 2006 13:02:56 -0000	1.1.2.8
@@ -91,135 +91,6 @@
     return $result
 }
 
-
-ad_proc -public -callback datamanager::move_forum -impl datamanager {
-     -object_id:required
-     -selected_community:required
-} {
-    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
-     {-mode: "empty"}
-} {
-    Copy a forum to another class or community
-} {
-#get forum's data
-    set forum_id [db_nextval acs_object_id_seq]   
-    set package_id [forum::get_forum_package -community_id $selected_community]
-    db_1row get_forum_data {}
-    
-#create the new forums
-    set forum_id [forum::new -forum_id $forum_id \
-        -name $name \
-        -charter $charter \
-        -presentation_type $presentation_type \
-        -posting_policy $posting_policy \
-        -package_id $package_id \
-    ]
-
-#copy the messages??
-    switch $mode {
-        empty {
-           set first_messages 0
-           set all_messages 0
-        }
-        threads {
-           set first_messages 1
-           set all_messages 0
-        }
-        all {
-           set first_messages 1
-           set all_messages 1
-        }
-        default {
-           set first_messages 0
-           set all_messages 0
-        }
-    }
-
-   if { $first_messages == 1 } {
-#copy the first message of the threads
-       set first_messages_list [db_list_of_lists get_first_messages_list {}]      
-       set first_messages_number [llength $first_messages_list]
-       
-       for {set i 0} {$i < $first_messages_number} {incr i} {
-        #code for copying a messages
-           set message_id  [db_nextval acs_object_id_seq]
-           set subject [lindex [lindex $first_messages_list $i] 0]
-           set content [lindex [lindex $first_messages_list $i] 1]
-           set user_id [lindex [lindex $first_messages_list $i] 2]
-           set formato [lindex [lindex $first_messages_list $i] 3]
-           set parent_id [lindex [lindex $first_messages_list $i] 4]
-
-
-           set message_id [forum::message::new \
-               -forum_id $forum_id \
-               -message_id $message_id \
-               -parent_id $parent_id\
-               -subject $subject\
-               -content $content\
-               -format $formato\
-               -user_id $user_id ] 
-       }
-   
-       if { $all_messages == 1 } {
-#copy all the messages of the threads
-           set all_messages_list [db_list_of_lists get_all_messages_list {}]      
-           set all_messages_number [llength $all_messages_list]
-           
-           for {set i 0} {$i < $all_messages_number} {incr i} {
-               
-           set message_id  [db_nextval acs_object_id_seq]
-           set subject [lindex [lindex $all_messages_list $i] 0]
-           set content [lindex [lindex $all_messages_list $i] 1]
-           set user_id [lindex [lindex $all_messages_list $i] 2]
-           set formato [lindex [lindex $all_messages_list $i] 3]
-           set parent_id [lindex [lindex $all_messages_list $i] 4]
-
-               set message_id [forum::message::new \
-                   -forum_id $forum_id \
-                   -message_id $message_id \
-                   -parent_id $parent_id\
-                   -subject $subject\
-                   -content $content\
-                   -format $formato\                   
-                   -user_id $user_id ]           
-           }
-       }
-   }
-   return $forum_id 
-}
-
 #Callbacks for application-track 
 
 ad_proc -callback application-track::getApplicationName -impl forums {} { 
@@ -285,5 +156,4 @@
 	}
 
         return "OK"
-    }          
-    
+    }