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.34 -r1.35
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	15 Dec 2003 11:21:04 -0000	1.34
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	5 Jan 2004 02:16:58 -0000	1.35
@@ -242,6 +242,7 @@
     {-parent_id:required}
     {-creation_user ""}
     {-creation_ip ""}
+    {-description ""}
 } {
     Create a new folder.
 
@@ -251,7 +252,7 @@
     @param parent_id Where we create this folder
     @param creation_user Who created this folder
     @param creation_ip What is the ip address of the creation_user
-
+    @param description of the folder. Not used in the current FS UI but might be used elsewhere.
     @return folder_id of the newly created folder
 } {
     if {[empty_string_p $creation_user]} {
@@ -261,8 +262,9 @@
     if {[empty_string_p $creation_ip]} {
 	set creation_ip [ns_conn peeraddr]
     }
-
-    return [db_exec_plsql new_folder {}]
+    set folder_id [db_exec_plsql new_folder {}]
+    fs::set_folder_description -folder_id $folder_id -description $description
+    return $folder_id
 }
 
 ad_proc -public fs::rename_folder {
@@ -274,6 +276,15 @@
     db_exec_plsql rename_folder {}
 }
 
+ad_proc -public fs::set_folder_description {
+    {-folder_id:required}
+    {-description ""}
+} {
+    sets the description for the given folder in cr_folders. Perhaps this shoudl be a CR proc?
+} {
+    db_dml set_folder_description { *SQL* }
+}
+
 ad_proc -public fs::object_p {
     {-object_id:required}
 } {