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.4 -r1.1.2.5
--- openacs-4/packages/forums/tcl/forums-callback-procs.tcl	10 Oct 2005 12:59:35 -0000	1.1.2.4
+++ openacs-4/packages/forums/tcl/forums-callback-procs.tcl	28 Oct 2005 10:13:34 -0000	1.1.2.5
@@ -129,6 +129,7 @@
 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
 } {
@@ -147,8 +148,24 @@
     ]
 
 #copy the messages??
-   set first_messages 1
-   set all_messages 1   
+    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