Index: openacs-4/packages/anon-eval/www/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/anon-eval/www/sessions.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/anon-eval/www/sessions.tcl	6 Feb 2006 16:02:25 -0000	1.3
+++ openacs-4/packages/anon-eval/www/sessions.tcl	6 Feb 2006 18:17:55 -0000	1.4
@@ -9,7 +9,7 @@
 } {
     assessment_id:notnull
     {subject_id:integer,optional ""}
-    admin_sessions:optional
+    {admin_sessions hide}
 } -properties {
     context_bar:onevalue
     page_title:onevalue
@@ -71,6 +71,24 @@
 	    }
 	} -main_class {
 	    narrow
+	} \
+	-filters {
+	    assessment_id {}
+	    admin_sessions {
+		label "[_ anon-eval.lt_Display_Admin_Session]"
+		values {
+		    {"[_ acs-subsite.Show]" "show"}
+		    {"[_ acs-subsite.Hide]" "hide"}
+		}
+		where_clause {
+		    (case when :admin_sessions = 'hide'
+		     then not s.subject_id in (select grantee_id 
+					       from acs_permissions_all 
+					       where privilege = 'admin' 
+					       and object_id = :package_id)
+		     else true end)
+		}
+	    }
 	}
 } else {
     template::list::create \
@@ -95,14 +113,13 @@
 	} \
 	-filters {
 	    assessment_id {}
-	    subject_id {}
 	    admin_sessions {
 		label "[_ anon-eval.lt_Display_Admin_Session]"
 		values {
-		    {"[_ acs-subsite.Show]" "show"}
 		    {"[_ acs-subsite.Hide]" "hide"}
+		    {"[_ acs-subsite.Show]" "show"}
 		}
-		where_clause {		    
+		where_clause {
 		    (case when :admin_sessions = 'hide'
 		     then not s.subject_id in (select grantee_id 
 					       from acs_permissions_all