Index: openacs-4/packages/datamanager/www/available-comm-template.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/available-comm-template.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/datamanager/www/available-comm-template.tcl	9 Nov 2005 19:42:40 -0000	1.1.2.1
+++ openacs-4/packages/datamanager/www/available-comm-template.tcl	10 Nov 2005 12:10:43 -0000	1.1.2.2
@@ -11,9 +11,21 @@
 if {[info exist department_key] eq 0} {
     set department_key ""
 } 
-    set available_communities [datamanager::get_available_communities \
-                                                    -object_type $object_type \
-                                                    -action_type $action_type \
-                                                    -communities_classes $communities_classes \
-                                                    -department_key $department_key]
+    set available_name [join [list "available" $communities_classes] "_"]
+if { $action_type eq "move"} {
+    set $available_name [datamanager::get_available_communities \
+                                                        -object_type $object_type \
+                                                        -action_type $action_type \
+                                                        -communities_classes $communities_classes \
+                                                        -department_key $department_key]
+} elseif {$action_type eq "copy"} {
 
+        set $available_name [datamanager::get_available_communities \
+                                                            -object_type $object_type \
+                                                            -action_type $action_type \
+                                                            -mode_list $mode_list \
+                                                            -bulk_action_export_vars [list [list object_id $object_id] [list mode $mode] ] \
+                                                            -communities_classes $communities_classes \
+                                                            -department_key $department_key]
+}
+