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 -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/datamanager/www/one-object-copy.tcl	20 Jul 2005 13:49:46 -0000	1.1.2.1
+++ openacs-4/packages/datamanager/www/one-object-copy.tcl	23 Sep 2005 14:15:38 -0000	1.1.2.2
@@ -4,8 +4,22 @@
     @creation_date 2005-07-05
     
 } -query {
+    object_id:integer,notnull
 } -properties {
 }
 
 
 set context [list [_ datamanager.Object_Copy]]
+set title "[_ datamanager.Choose_Destination]"    
+
+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 action "copy"
+
+set available_communities [datamanager::get_available_communities -object_type $object_type]
+