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.2 -r1.3
--- openacs-4/packages/anon-eval/www/sessions.tcl	9 Jun 2005 05:54:36 -0000	1.2
+++ openacs-4/packages/anon-eval/www/sessions.tcl	6 Feb 2006 16:02:25 -0000	1.3
@@ -9,6 +9,7 @@
 } {
     assessment_id:notnull
     {subject_id:integer,optional ""}
+    admin_sessions:optional
 } -properties {
     context_bar:onevalue
     page_title:onevalue
@@ -20,6 +21,7 @@
 set user_id [ad_conn user_id]
 permission::require_permission -object_id $assessment_id -privilege read
 set dotlrn_admin_p [dotlrn::admin_p]
+set package_id [ad_conn package_id]
 
 if { !$dotlrn_admin_p } {
     ad_return_complaint 1 "[_ anon-eval.permission_denied]"
@@ -90,7 +92,26 @@
 	    }
 	} -main_class {
 	    narrow
-	} 
+	} \
+	-filters {
+	    assessment_id {}
+	    subject_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)
+		}
+	    }
+	}
 }