Index: openacs-4/packages/file-storage/www/file-move-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-move-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-move-2.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/file-storage/www/file-move-2.tcl	19 Aug 2001 16:16:35 -0000	1.2
@@ -28,7 +28,7 @@
 
 db_transaction {
 
-db_dml file_move "
+db_exec_plsql file_move "
 begin
     content_item.move (
     	item_id => :file_id,
@@ -51,8 +51,8 @@
     select count(*)
     from   cr_items
     where  name = :filename
-    and    parent_id = :folder_id"] {
-	ad_return_complaint 1 "Either there is already a file in the specified folder with the name \"$filename\" or you clicked on the button more than once.  You can <a href=\"?folder_id=$folder_id\">return to the directory listing</a> to see if your file is there."
+    and    parent_id = :parent_id"] {
+	ad_return_complaint 1 "Either there is already a file in the specified folder with the name \"$filename\" or you clicked on the button more than once.  You can <a href=\"index?folder_id=$parent_id\">return to the directory listing</a> to see if your file is there."
     } else {
 	ad_return_complaint 1 "We got an error that we couldn't readily identify.  Please let the system owner know about this.