Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/file-storage/www/copy.tcl	22 Jul 2004 17:38:19 -0000	1.1.2.2
+++ openacs-4/packages/file-storage/www/copy.tcl	30 Jul 2004 11:22:15 -0000	1.1.2.3
@@ -14,6 +14,7 @@
     {show_items:boolean 0}
 }
 
+set objects_to_copy $object_id
 set user_id [ad_conn user_id]
 set peer_addr [ad_conn peeraddr]
 set allowed_count 0
@@ -86,6 +87,7 @@
             }
         }
     set root_folder_id [fs::get_root_folder]
+    set object_id $objects_to_copy
     db_multirow -extend {copy_url} folder_tree get_folder_tree "" {
 	set copy_url [export_vars -base "copy" { object_id:multiple folder_id return_url }]