Index: openacs-4/packages/file-storage/www/file-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/www/file-postgresql.xql 20 Aug 2001 17:31:14 -0000 1.2
+++ openacs-4/packages/file-storage/www/file-postgresql.xql 22 Sep 2001 05:51:14 -0000 1.3
@@ -7,9 +7,8 @@
select person__name(o.creation_user) as owner,
- i.name,
- r.title,
- content_item__get_path(i.item_id,file_storage__get_root_folder([ad_conn package_id])) as file_path,
+ i.name as title,
+ r.title as name,
acs_permission__permission_p(:file_id,:user_id,'write') as write_p,
acs_permission__permission_p(:file_id,:user_id,'delete') as delete_p,
acs_permission__permission_p(:file_id,:user_id,'admin') as admin_p
@@ -25,16 +24,19 @@
select r.title,
r.revision_id as version_id,
+ file_storage__get_path(i.item_id,file_storage__get_root_folder([ad_conn package_id]),r.revision_id) as file_path,
person__name(o.creation_user) as author,
r.mime_type as type,
to_char(o.last_modified,'YYYY-MM-DD HH24:MI') as last_modified,
r.description,
acs_permission__permission_p(r.revision_id,:user_id,'admin') as admin_p,
acs_permission__permission_p(r.revision_id,:user_id,'delete') as delete_p,
- lob_length(r.lob) as content_size
- from acs_objects o, cr_revisions r
+ r.content_length as content_size
+ from acs_objects o, cr_revisions r, cr_items i
where o.object_id = r.revision_id
and acs_permission__permission_p(r.revision_id, :user_id, 'read') = 't'
+ and r.item_id = i.item_id
+ and r.item_id = :file_id
$show_versions
@@ -43,15 +45,13 @@
- and r.item_id = :file_id
-
- and r.revision_id = (select live_revision from cr_items where item_id = :file_id)
+ and r.revision_id = i.live_revision