Index: openacs-4/packages/file-storage/www/file-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-edit-2.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/file-storage/www/file-edit-2.tcl	5 Nov 2002 17:19:59 -0000	1.4
+++ openacs-4/packages/file-storage/www/file-edit-2.tcl	8 Dec 2003 15:12:09 -0000	1.4.2.1
@@ -19,19 +19,11 @@
 
 ad_require_permission $file_id write
 
-if [catch {db_exec_plsql rename_file "
-begin
-    content_item.rename (
-        item_id => :file_id,
-        name => :title
-    );
-end;"} errmsg] {
+if [catch {
+    db_exec_plsql rename_file {}
+} errmsg] {
 
-    if [db_string duplicate_check "
-    select count(*)
-    from   cr_items
-    where  name = :name
-    and    parent_id = content_item.get_parent_folder(:file_id)"] {
+    if { [db_string duplicate_check {}] } {
 	ad_return_complaint 1 "[_ file-storage.lt_It_appears_that_there]"
     } else {
 	ad_return_complaint 1 "[_ file-storage.lt_We_got_an_error_that_]