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
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql 13 Aug 2001 01:02:59 -0000 1.1
@@ -0,0 +1,100 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ :1 := file_storage.get_root_folder(:package_id);
+ end;
+
+
+
+
+
+
+
+
+ begin
+ :1 := content_folder.get_label(:folder_id);
+ end;
+
+
+
+
+
+
+
+
+ select count(*)
+ from cr_items
+ where item_id in (select item_id
+ from cr_items
+ connect by prior item_id = parent_id
+ start with item_id = :item_id)
+ and acs_permission.permission_p(item_id,:user_id,:privilege) = 'f'
+
+
+
+
+
+
+
+
+ select item_id as child_item_id
+ from cr_items
+ connect by prior item_id = parent_id
+ start with item_id = :item_id
+
+
+
+
+
+
+
+
+ select count(*)
+ from cr_revisions
+ where item_id = :child_item_id
+ and acs_permission.permission_p(revision_id,:user_id,:privilege) = 'f'
+
+
+
+
+
+
+
+
+ begin
+ :1 := content_item.get_title(:item_id);
+ end;
+
+
+
+
+
+
+
+
+ select case when content_item.get_content_type(i.item_id) = 'content_folder'
+ then '?folder_id='
+ else 'file?file_id='
+ end || i.item_id,
+ content_item.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]))
+ connect by prior i.parent_id = i.item_id
+ start with item_id = :start_id
+ order by level desc
+
+
+
+
+
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
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql 13 Aug 2001 01:03:20 -0000 1.1
@@ -0,0 +1,107 @@
+
+
+
+ postgresql7.1
+
+
+
+
+ select file_storage__get_root_folder(:package_id);
+
+
+
+
+
+
+
+
+ select content_folder__get_label(:folder_id);
+
+
+
+
+
+
+
+
+ select count(*)
+ from cr_items
+ where item_id in (select item_id
+ from cr_items
+ where tree_sortkey like (select tree_sortkey || '%'
+ from cr_items
+ where item_id = :item_id)
+ order by tree_sortkey)
+ and acs_permission__permission_p(item_id,:user_id,:privilege) = 'f'
+
+
+
+
+
+
+
+
+ select item_id as child_item_id
+ from cr_items
+ where tree_sortkey like (select tree_sortkey || '%'
+ from cr_items
+ where item_id = :item_id)
+ order by tree_sortkey
+
+
+
+
+
+
+
+
+ select count(*)
+ from cr_revisions
+ where item_id = :child_item_id
+ and acs_permission__permission_p(revision_id,:user_id,:privilege) = 'f'
+
+
+
+
+
+
+
+
+ select content_item__get_title(:item_id);
+
+
+
+
+
+
+
+
+ select (case when content_item__get_content_type(i.item_id) = 'content_folder'
+ then '?folder_id='
+ else 'file?file_id='
+ end) || i.item_id,
+ content_item__get_title(i.item_id)
+ from cr_items i
+ where item_id not in (select i2.item_id
+ from cr_items i2
+ where i2.tree_sortkey like (select i3.tree_sortkey || '%'
+ from cr_items i3
+ where i3.item_id =
+ file_storage__get_root_folder([ad_conn package_id]))
+ order by i2.tree_sortkey)
+ and i.tree_sortkey like (select i4.tree_sortkey || '%'
+ from cr_items i4
+ where i4.item_id = :start_id)
+ order by i.tree_sortkey, i.level desc
+
+
+
+
+
+
+
+
+
+
+
+