Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	15 Dec 2003 11:18:45 -0000	1.16
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	26 Jan 2004 15:39:47 -0000	1.17
@@ -31,8 +31,12 @@
 
 set content_size_total 0
 
-set root_folder_id [fs::get_root_folder]
+if {![exists_and_not_null root_folder_id]} {
+    set root_folder_id [fs::get_root_folder]
+}
 
+set folder_path [db_exec_plsql get_folder_path {}]
+
 set actions [list]
 set actions [list "Upload File" file-add?[export_vars folder_id] "Upload a file in this folder" "Add Link" simple-add?[export_vars folder_id] "Add a link to a web page" "\#file-storage.New_Folder\#" folder-create?[export_vars {{parent_id $folder_id}}] "\#file-storage.Create_a_new_folder\#" ]