Index: openacs-4/packages/dotlrn-homework/www/file-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/file-postgresql.xql,v
diff -u -r1.1.1.1.4.1 -r1.1.1.1.4.1.4.1
--- openacs-4/packages/dotlrn-homework/www/file-postgresql.xql	3 Apr 2004 02:22:29 -0000	1.1.1.1.4.1
+++ openacs-4/packages/dotlrn-homework/www/file-postgresql.xql	30 Aug 2004 16:44:55 -0000	1.1.1.1.4.1.4.1
@@ -11,18 +11,21 @@
 		r.title,
 		acs_permission__permission_p(:file_id,:user_id,'write') as write_file_p,
 		acs_permission__permission_p(:file_id,:user_id,'delete') as delete_p,
-		i.item_id as correction_file_p
-	from   acs_objects o, cr_revisions r, cr_items i
+		case when cir.item_id is null then 'f' else 't' end as correction_file_p
+	from   acs_objects o
+           join cr_items i on (i.item_id = o.object_id)
+           join cr_revisions r on (r.revision_id = i.live_revision)
+           left join cr_item_rels cir on 
+             (cir.item_id = o.object_id and cir.relation_tag = 'homework_correction')
 	where  o.object_id = :file_id
-	and    i.item_id   = o.object_id
-	and    r.revision_id = i.live_revision
       </querytext>
 </fullquery>
 
 <fullquery name="version_info">      
       <querytext>
 
-	select  r.title,
+	select  i.name as version_name,
+                r.title,
        		r.revision_id as version_id,
        		person__name(o.creation_user) as author,
        		r.mime_type as type,