Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	28 Jun 2002 15:12:29 -0000	1.17
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	2 Jul 2002 19:40:00 -0000	1.18
@@ -123,15 +123,15 @@
     <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 || '?' || :extra_vars || '&folder_id='
+                        else :file_url || '?' || :extra_vars || '&file_id='
                    end || i.item_id,
                    file_storage.get_title(i.item_id)
             from cr_items i
             where item_id not in (select i2.item_id
                                   from cr_items i2
                                   connect by prior i2.parent_id = i2.item_id
-                                  start with i2.item_id = file_storage.get_root_folder([ad_conn package_id]))
+                                  start with i2.item_id = :root_folder_id)
             connect by prior i.parent_id = i.item_id
             start with item_id = :start_id
             order by level desc