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 ""
 }
 
Index: openacs-4/packages/assessment/www/admin/asm-action-param-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/asm-action-param-list.tcl	25 Jan 2005 22:03:44 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/asm-action-param-list.tcl	2 Feb 2005 23:13:15 -0000	1.3
@@ -20,6 +20,14 @@
 	}
 	type {
 	    label "[_ assessment.parameter_type]"
+	    display_template {
+		<if @parameter_list.type@ eq n>
+		#assessment.var#
+		</if>
+		<else>
+		#assessment.query#
+		</else>
+	    }
 	}
 
 	query {
Index: openacs-4/packages/assessment/www/admin/request-notification.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/request-notification.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/admin/request-notification.tcl	28 Jan 2005 20:33:19 -0000	1.3
+++ openacs-4/packages/assessment/www/admin/request-notification.tcl	2 Feb 2005 23:17:44 -0000	1.4
@@ -16,7 +16,7 @@
 set context [list [list "one-a?assessment_id=$assessment_id" $title] [list "checks-admin?assessment_id=$assessment_id&section_id=$section_id" "$title [_ assessment.Administration]"] "[_ assessment.Request] [_ assessment.Notification]"]
 
 form create notify
-set type "as_inter_item_checks_notif"
+set type "inter_item_checks_notif"
 set type_id [notification::type::get_type_id -short_name $type]
 set intervals [notification::get_intervals -type_id $type_id]
 set delivery_methods [notification::get_delivery_methods -type_id $type_id]