Index: openacs-4/packages/file-storage/www/folder-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/folder-create.tcl	5 Jan 2004 02:16:58 -0000	1.4
+++ openacs-4/packages/file-storage/www/folder-create.tcl	5 Jan 2004 02:29:12 -0000	1.5
@@ -55,8 +55,11 @@
 } -edit_request {
     #For now I'm using the bCSM proc. We need to move it to somewhere its more accessible.
     #But I hope we can avoid repeating the code in 2 places.
-    array set folder [bcms::folder::get_folder -folder_id $folder_id]
+#    array set folder [bcms::folder::get_folder -folder_id $folder_id]
+# use a plain old query until this gets fixed in CR
 
+    db_1row get_folder_info "" -array folder
+    
     #Sigh, there seems to be no consitancy as to how name, title, label and pretty_name are used.
 
     # cr_folders.label is the pretty name