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)
+
+
+
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.41 -r1.42
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 13 Jan 2005 13:58:12 -0000 1.41
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 1 Mar 2005 22:53:02 -0000 1.42
@@ -239,4 +239,21 @@
+
+
+ select site_node__url(node_id)
+ from site_nodes
+ where object_id = (select package_id
+ from fs_root_folders r,
+ (select parent.item_id as folder_id
+ from cr_items parent,
+ cr_items children
+ where children.item_id = :folder_id
+ and children.tree_sortkey
+ between parent.tree_sortkey
+ and tree_right(parent.tree_sortkey)) t
+ where r.folder_id = t.folder_id)
+
+
+