Index: openacs-4/packages/assessment/www/admin/admin-request.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/admin-request.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/admin/admin-request.tcl	24 Jan 2005 17:45:56 -0000	1.1
+++ openacs-4/packages/assessment/www/admin/admin-request.tcl	25 Jan 2005 17:12:04 -0000	1.2
@@ -41,6 +41,7 @@
 
 if {[exists_and_not_null state]} {
     set d_state $state 
+    ns_log notice "----------------->state $state"
 } 
 if {[exists_and_not_null interval] && $interval!="all"} {
     set d_interval $interval
@@ -56,8 +57,10 @@
 
 if { $d_state == "ae"} {
     set state_query "and al.failed_p='f' and al.approved_p='t'"
-} else {
-    set state_query "and al.failed_p='t'and al.approved_p=:d_state"
+} elseif {$d_state =="f"} {
+    set state_query "and al.approved_p='f'"
+} elseif {$d_state == "t"} {
+    set state_query "and al.failed_p='t' and al.approved_p='t'"
 }
 
 ad_form -name assessments -form {