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.2 -r1.3
--- openacs-4/packages/file-storage/www/simple-edit-2.tcl	5 Nov 2002 17:19:59 -0000	1.2
+++ openacs-4/packages/file-storage/www/simple-edit-2.tcl	17 May 2003 10:39:54 -0000	1.3
@@ -15,9 +15,9 @@
 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"