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 -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
Index: openacs-4/packages/file-storage/www/folder-create.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/folder-create.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/folder-create.xql	5 Jan 2004 02:29:12 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+<queryset>
+
+  <fullquery name="get_folder_info">
+    <querytext>
+      select cf.label,
+      cf.description,
+      ci.parent_id
+      from cr_folders cf,
+      cr_items ci
+      where cf.folder_id=:folder_id
+      and   cf.folder_id = ci.item_id
+      </querytext>
+    </fullquery>
+</queryset>
\ No newline at end of file