Index: openacs-4/packages/datamanager/www/one-object-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/one-object-copy.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/datamanager/www/one-object-copy.tcl	28 Oct 2005 10:17:37 -0000	1.1.2.5
+++ openacs-4/packages/datamanager/www/one-object-copy.tcl	2 Nov 2005 17:02:19 -0000	1.1.2.6
@@ -52,6 +52,23 @@
                                 [export_vars -base one-object-copy {object_id {mode "all"}}]\
                                 "Select the forums with the threads and replies"]
     set mode_list [concat $empty_button $threads_button $all_button]
+} elseif { $object_type eq "dotlrn_fs"} {
+     if {$mode == ""} {
+        set mode "both"
+    }
+    set empty_button [list "Empty" \
+                                    [export_vars -base one-object-copy {object_id {mode "empty"}}] \
+                                    "Copy the folders without files and subfolders"]
+    set subfolders_button [list "Subfolders" \
+                                    [export_vars -base one-object-copy {object_id {mode "subfolders"}}] \
+                                    "Copy the folders and its subfolders, but no files"]
+    set files_button [list "Files" \
+                                    [export_vars -base one-object-copy {object_id {mode "files"}}] \
+                                    "Copy the folders and its files, but no subfolders"]
+    set both_button [list "Files and subfolders" \
+                                    [export_vars -base one-object-copy {object_id {mode "both"}}] \
+                                    "Copy the folders with both files and subfolders"]
+     set mode_list [concat $empty_button $subfolders_button $files_button $both_button]                                   
 } else {
     set mode_list {}
 }