Index: openacs-4/packages/assessment/www/asm-admin/sessions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/sessions.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/assessment/www/asm-admin/sessions.tcl 24 Jan 2007 20:15:30 -0000 1.2.2.1 +++ openacs-4/packages/assessment/www/asm-admin/sessions.tcl 22 Feb 2007 02:54:58 -0000 1.2.2.2 @@ -151,15 +151,16 @@ and g.member_id = u.user_id and acs_permission__permission_p(cr.item_id, u.user_id, 'read')) a - left join (select * - from as_sessions + left join (select as_sessions.*, cr.item_id + from as_sessions, cr_revisions cr where session_id in (select max(session_id) from as_sessions, acs_objects o where not completed_datetime is null and o.object_id = session_id and o.package_id = :package_id - group by subject_id, assessment_id )) cs - on (a.user_id = cs.subject_id and a.assessment_id = cs.assessment_id) + group by subject_id, assessment_id ) + and revision_id=assessment_id) cs + on (a.user_id = cs.subject_id and a.item_id = cs.item_id) left join (select * from as_sessions