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) + + +