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.5.2.4 -r1.5.2.5
--- openacs-4/packages/file-storage/www/move.tcl	5 May 2006 19:26:23 -0000	1.5.2.4
+++ openacs-4/packages/file-storage/www/move.tcl	17 May 2006 21:07:03 -0000	1.5.2.5
@@ -97,13 +97,13 @@
 	set root_folder_id [fs::get_root_folder]
     }
     set object_id $objects_to_move
+    set cancel_url "[ad_conn url]?[ad_conn query]"
     db_multirow -extend {move_url level} folder_tree get_folder_tree "" {
 	# teadams 2003-08-22 - change level to level num to avoid 
 	# Oracle issue with key words.
 
-	set move_url [export_vars -base "move" { object_id:multiple folder_id return_url }]
-
-	
+	set target_url [export_vars -base "[ad_conn package_url]move" { object_id:multiple folder_id return_url }]
+	set move_url [export_vars -base "file-upload-confirm" {folder_id cancel_url {return_url $target_url}}]
     }
 
 }