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 -r1.31 -r1.32 --- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 13 Jan 2005 13:58:12 -0000 1.31 +++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 1 Mar 2005 22:53:35 -0000 1.32 @@ -256,4 +256,19 @@ + + + select site_node.url(node_id) + from site_nodes + where object_id = (select r.package_id, + r.folder_id as root_folder_id + from fs_root_folders r, + (select item_id as folder_id + from cr_items + connect by prior parent_id = item_id + start with item_id = :folder_id) t + where r.folder_id = t.folder_id) + + +