Index: openacs-4/packages/datamanager/www/one-object-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/Attic/one-object-move.tcl,v
diff -u -N -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/datamanager/www/one-object-move.tcl	19 Oct 2005 08:16:01 -0000	1.1.2.4
+++ openacs-4/packages/datamanager/www/one-object-move.tcl	28 Oct 2005 10:17:37 -0000	1.1.2.5
@@ -4,7 +4,7 @@
     @creation_date 2005-07-05
     
 } -query {
-    object_id:integer,notnull
+    object_id:integer,notnull,multiple
 } -properties {
 }
 
@@ -14,15 +14,22 @@
 #only administrator or professor must be allowed to enter this page
 dotlrn::require_user_admin_community  -community_id [dotlrn_community::get_community_id]
 
-set object_type [datamanager::get_object_type -object_id $object_id]
-set object_data [datamanager::get_object_data -object_type $object_type -object_id $object_id]
 
-set object_name [lindex $object_data 0]
-set object_url [lindex $object_data 1]
-set object_type [lindex $object_data 2]
+set object_data [list]
+set object_name [list]
 
-set action "move"
+foreach object $object_id {
+    set object_type [datamanager::get_object_type -object_id $object]
+    set object_data_temp [datamanager::get_object_data -object_type $object_type -object_id $object]
+    lappend object_data $object_data_temp
+    lappend object_name [lindex $object_data_temp 0]
+}
 
 
+set object_url [lindex [lindex $object_data 0] 1]
+set object_type [lindex [lindex $object_data 0] 2]
+
+set action "move"
+
 set available_communities [datamanager::get_available_communities -object_type $object_type -action_type $action]