Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/file-storage/www/move.tcl	11 Jul 2004 11:35:13 -0000	1.1.2.4
+++ openacs-4/packages/file-storage/www/move.tcl	20 Jul 2004 20:22:09 -0000	1.1.2.5
@@ -14,6 +14,7 @@
     {show_items:boolean 0}
 }
 
+set objects_to_move $object_id
 set user_id [ad_conn user_id]
 
 set allowed_count 0
@@ -79,8 +80,10 @@
             }
         }
     set root_folder_id [fs::get_root_folder]
+    set object_id $objects_to_move
     db_multirow -extend {move_url} folder_tree get_folder_tree "" {
 	set move_url [export_vars -base "move" { object_id:multiple folder_id return_url }]
+
 	
     }