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.2 -r1.3
--- openacs-4/packages/assessment/www/admin/request-notification.tcl	25 Jan 2005 22:03:44 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/request-notification.tcl	28 Jan 2005 20:33:19 -0000	1.3
@@ -8,9 +8,13 @@
   assessment_id
   section_id
 }
-set check_name [db_string get_name {}]
-set title "[_ assessment.request_notif] $check_name"
 
+as::assessment::data -assessment_id $assessment_id
+set title "$assessment_data(title)"
+
+
+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_id [notification::type::get_type_id -short_name $type]