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.4 -r1.2.2.5 --- openacs-4/packages/assessment/www/asm-admin/sessions.tcl 7 Jul 2007 00:27:51 -0000 1.2.2.4 +++ openacs-4/packages/assessment/www/asm-admin/sessions.tcl 14 Sep 2007 22:37:55 -0000 1.2.2.5 @@ -27,6 +27,7 @@ ns_set delkey $form status set page_title [_ assessment.All_Users] if {[info exists assessment_id]} { + as::assessment::data -assessment_id $assessment_id set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] } else { set context [list [list index [_ assessment.admin]] $page_title] @@ -171,7 +172,7 @@ group by subject_id, assessment_id)) ns on (a.user_id = ns.subject_id and a.assessment_id = ns.assessment_id) - where true + where 1=1 [list::filter_where_clauses -and -name "sessions"] order by lower(a.title), lower(a.last_name), lower(a.first_names)