Index: openacs-4/packages/assessment/www/asm-admin/section-preview.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-preview.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/section-preview.tcl 1 Apr 2005 06:19:31 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/section-preview.tcl 7 Apr 2005 21:43:28 -0000 1.3 @@ -26,7 +26,7 @@ set assessment_rev_id $assessment_data(assessment_rev_id) set page_title "[_ assessment.section_preview]" -set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] +set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] db_1row section_data {} -column_array section # get all items of section in correct order