Index: openacs-4/packages/file-storage/www/file-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/file-storage/www/file-oracle.xql	16 Aug 2001 20:32:59 -0000	1.1
+++ openacs-4/packages/file-storage/www/file-oracle.xql	17 Aug 2001 14:49:05 -0000	1.2
@@ -20,5 +20,42 @@
       </querytext>
 </fullquery>
 
+<fullquery name="version_info">      
+      <querytext>
+
+	select  r.title,
+       		r.revision_id as version_id,
+       		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,
+       		-- dbms_lob.getlength(r.content) as content_size
+		r.content_length as content_size
+	from   acs_objects o, cr_revisions r
+	where  o.object_id = r.revision_id
+	and    acs_permission.permission_p(r.revision_id, :user_id, 'read') = 't'
+	$show_versions
+
+      </querytext>
+</fullquery> 
+
+<partialquery name="show_all_versions">      
+      <querytext>
+
+	and r.item_id = :file_id
+
+      </querytext>
+</partialquery> 	
+
+<partialquery name="show_live_version">      
+      <querytext>
+
+	and r.revision_id = (select live_revision from cr_items where item_id = :file_id)
+
+      </querytext>
+</partialquery> 	
+
  
 </queryset>