Index: openacs-4/packages/file-storage/www/folder-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/www/folder-edit.tcl	26 May 2005 08:28:46 -0000	1.3
+++ openacs-4/packages/file-storage/www/folder-edit.tcl	15 Jun 2007 17:40:29 -0000	1.4
@@ -23,6 +23,40 @@
 
 set context_bar [fs_context_bar_list -final "[_ file-storage.Edit]" $folder_id]
 
-set folder_name [fs_get_folder_name $folder_id]
+set submit_label [_ file-storage.Save]
 
+ad_form -export folder_id -form {
+    {folder_name:text(text) {label "\#file-storage.Folder_Name\#"}}
+}
+
+
+set package_id [ad_conn package_id]
+if { [parameter::get -parameter CategoriesP -package_id $package_id -default 0] } {
+    category::ad_form::add_widgets \
+	 -container_object_id $package_id \
+	 -categorized_object_id $folder_id \
+	 -form_name folder-edit
+}
+
+
+ad_form -extend -form {
+    {submit:text(submit) {label $submit_label}}
+} -on_request {
+    set folder_name [fs_get_folder_name $folder_id]
+} -on_submit {
+
+    db_exec_plsql folder_rename {}
+
+    if { [parameter::get -parameter CategoriesP -package_id $package_id -default 0] } {
+	category::map_object -remove_old -object_id $folder_id [category::ad_form::get_categories \
+								       -container_object_id $package_id \
+								       -element_name category_id]
+    }
+
+    callback fs::folder_edit -package_id [ad_conn package_id] -folder_id $folder_id
+
+} -after_submit {
+    ad_returnredirect "?folder_id=$folder_id"
+}
+
 ad_return_template