Index: openacs-4/packages/file-storage/www/simple-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/simple-edit-2.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/file-storage/www/simple-edit-2.tcl	2 Apr 2002 06:50:49 -0000	1.1
+++ openacs-4/packages/file-storage/www/simple-edit-2.tcl	20 Mar 2003 22:14:12 -0000	1.1.2.1
@@ -15,8 +15,8 @@
 ad_require_permission $object_id write
 
 # edit the URL
-fs::url_edit -url_id $object_id -name $name -description $description -url $url
+content_extlink::edit -extlink_id $object_id -url $url -label $name -description $description
 
-set folder_id [db_string select_folder_id "select folder_id from fs_simple_objects where object_id= :object_id"]
+set folder_id [db_string select_folder_id {}]
 
 ad_returnredirect "?folder_id=$folder_id"