Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	24 Jun 2002 19:14:55 -0000	1.16
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	28 Jun 2002 15:12:29 -0000	1.17
@@ -39,6 +39,17 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::rename_folder.rename_folder">
+        <querytext>
+            begin
+                content_folder.rename(
+                    folder_id => :folder_id,
+                    label => :name
+                );
+            end;
+        </querytext>
+    </fullquery>
+
     <fullquery name="fs::get_folder_contents.select_folder_contents">
         <querytext>
             select fc.*
Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	24 Jun 2002 19:14:55 -0000	1.22
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	28 Jun 2002 15:12:29 -0000	1.23
@@ -31,6 +31,19 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="fs::rename_folder.rename_folder">
+        <querytext>
+            begin
+                select content_folder__rename(
+                    :folder_id,
+                    null,
+                    :name,
+                    null
+                );
+            end;
+        </querytext>
+    </fullquery>
+
     <fullquery name="fs::get_folder_contents.select_folder_contents">
         <querytext>
             select fc.*
Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	24 Jun 2002 19:14:55 -0000	1.17
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	28 Jun 2002 15:12:29 -0000	1.18
@@ -290,6 +290,15 @@
         return [db_exec_plsql new_folder {}]
     }
 
+    ad_proc -public rename_folder {
+        {-folder_id:required}
+        {-name:required}
+    } {
+        rename the given folder
+    } {
+        db_exec_plsql rename_folder {}
+    }
+
     ad_proc -public object_p {
         {-object_id:required}
     } {
@@ -375,7 +384,7 @@
         }
 
         if {[empty_string_p $user_id]} {
-            set user_id [acs_magic_object "the_public"]
+            set user_id [acs_magic_object the_public]
         }
 
         return [db_string select_folder_contents_count {}]