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.23 -r1.24
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	28 Jun 2002 15:12:29 -0000	1.23
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	2 Jul 2002 19:40:00 -0000	1.24
@@ -112,12 +112,12 @@
     <fullquery name="fs_context_bar_list.context_bar">
         <querytext>
             select (case when file_storage__get_content_type(i.item_id) = 'content_folder'
-                         then 'index?folder_id='
-                         else 'file?file_id='
+                         then :folder_url || '?folder_id='
+                         else :file_url || '?file_id='
                     end) || i.item_id,
                    file_storage__get_title(i.item_id)
             from (select tree_ancestor_keys(cr_items_get_tree_sortkey(:start_id)) as tree_sortkey) parents,
-                 (select tree_sortkey from cr_items where item_id = file_storage__get_root_folder([ad_conn package_id])) root,
+                 (select tree_sortkey from cr_items where item_id = :root_folder_id) root,
                  cr_items i
             where i.tree_sortkey = parents.tree_sortkey
             and i.tree_sortkey > root.tree_sortkey