Index: openacs-4/packages/assessment/www/admin/checks-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/checks-admin.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/www/admin/checks-admin.tcl	25 Jan 2005 22:03:44 -0000	1.2
+++ openacs-4/packages/assessment/www/admin/checks-admin.tcl	28 Jan 2005 20:33:19 -0000	1.3
@@ -10,17 +10,16 @@
 }
 
 as::assessment::data -assessment_id $assessment_id
-set new_assessment_revision [db_string get_assessment_id {select max(revision_id) from cr_revisions where item_id=:assessment_id}]
+set new_assessment_revision $assessment_data(assessment_rev_id)
 
 
-
 if {![info exists assessment_data(assessment_id)]} {
     ad_return_complaint 1 "[_ assessment.Requested_assess_does]"
     ad_script_abort
 }
 
-set title "$assessment_data(title) \#assessment.triggers\#"
-set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] "$title \#assessment.triggers\#"]
+set title "$assessment_data(title)"
+set context_bar [ad_context_bar [list "one-a?assessment_id=$assessment_id" $title] "$title [_ assessment.Administration]"]
 
 db_multirow aa_checks get_aa_checks {}