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.6 -r1.7
--- openacs-4/packages/assessment/www/admin/admin-request.tcl	29 Jan 2005 15:51:27 -0000	1.6
+++ openacs-4/packages/assessment/www/admin/admin-request.tcl	2 Feb 2005 23:17:44 -0000	1.7
@@ -45,9 +45,11 @@
     set d_state $state 
 
 } 
+
+set today [db_string sysdate {}]
 if {[exists_and_not_null interval] && $interval!="all"} {
     set d_interval $interval
-    set interval_query "and to_date(al.date_requested,'YYYY-MM-DD') >= to_date('$interval','YYYY-MM-DD') and to_date(al.date_requested,'YYYY-MM-DD') <=to_date(now(),'YYYY-MM-DD') "
+    set interval_query "and to_date(al.date_requested,'YYYY-MM-DD') >= to_date('$interval','YYYY-MM-DD') and to_date(al.date_requested,'YYYY-MM-DD') <=to_date($today,'YYYY-MM-DD') "
     set date_query ""
 }