Index: openacs-4/packages/file-storage/www/simple-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/simple-edit.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/file-storage/www/simple-edit.tcl	13 Oct 2003 17:16:08 -0000	1.5
+++ openacs-4/packages/file-storage/www/simple-edit.tcl	20 Apr 2004 21:13:40 -0000	1.6
@@ -11,13 +11,23 @@
 # check for write permission on the item
 ad_require_permission $object_id write
 
-# Load up some data
-db_1row select_item_info "select name, url, description, folder_id from fs_urls_full where url_id= :object_id"
+# Message lookup uses variable pretty_name
 
+ad_form -name simple-edit -form {
+    object_id:key
+    {name:text {label "#file-storage.Title_#"} {html {size 40} } }
+    {url:text {label "#file-storage.URL#"} {html {size 50} } }
+    {description:text(textarea) {label "#file-storage.Description#" } {html { rows 5 cols 50 } } }
+    {folder_id:text(hidden)}
+} -edit_request {
+    db_1row extlink_data ""
+} -edit_data {
+    content_extlink::edit -extlink_id $object_id -url $url -label $name -description $description
+    ad_returnredirect "?[export_vars folder_id]"
+}
+
 set pretty_name "$name"
 set context [fs_context_bar_list -final "[_ file-storage.Edit_URL]" $folder_id]
-
-# Message lookup uses variable pretty_name
 set page_title [_ file-storage.file_edit_page_title_1]
 
 ad_return_template