Index: openacs-4/packages/datamanager/tcl/datamanager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/tcl/datamanager-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/datamanager/tcl/datamanager-procs.tcl 10 Oct 2005 12:59:34 -0000 1.1.2.4
+++ openacs-4/packages/datamanager/tcl/datamanager-procs.tcl 19 Oct 2005 08:14:27 -0000 1.1.2.5
@@ -82,35 +82,66 @@
ad_proc -public get_available_communities {
-object_type:required
+ {-action_type "move"}
} {
Get the list of communities, subgroups or classes where an object can be moved
} {
+
+
+if {$action_type eq "move"} {
+ set bulk_actions {}
+ set elements {
+ selected {
+ label {[_ datamanager.Selected]}
+ display_template {
+
+ }
+ }
+ community_id {
+ hide_p 1
+ }
+
+ community_type {
+ label {[_ datamanager.Type]}
+ display_col type
+ }
+ community_name {
+ label {[_ datamanager.Name]}
+ display_col name
+ }
+ }
+} else {
+ set bulk_actions {Copy do-it {Copy cheched objects}}
+ set elements {
+ community_id {
+ hide_p 1
+ }
+
+ community_type {
+ label {[_ datamanager.Type]}
+ display_col type
+ }
+ community_name {
+ label {[_ datamanager.Name]}
+ display_col name
+ }
+ }
+}
+
+
+
+
+
+
+
#create the template_list
template::list::create \
-name available_communities \
-multirow communities \
-key community_id \
- -elements {
- selected {
- label {[_ datamanager.Selected]}
- display_template {
-
- }
- }
- community_id {
- hide_p 1
- }
-
- community_type {
- label {[_ datamanager.Type]}
- display_col type
- }
- community_name {
- label {[_ datamanager.Name]}
- display_col name
- }
- }
+ -bulk_actions $bulk_actions \
+ -elements $elements
set comm_id [dotlrn_community::get_community_id]