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 -N -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)