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.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/section-preview.tcl 7 Apr 2005 22:55:30 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/section-preview.tcl 12 Jun 2006 02:49:51 -0000 1.5 @@ -8,7 +8,7 @@ assessment_id:integer section_id:integer } -properties { - context:onevalue + context_bar:onevalue page_title:onevalue } @@ -26,7 +26,7 @@ set assessment_rev_id $assessment_data(assessment_rev_id) set page_title "[_ assessment.section_preview]" -set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] $page_title] +set context_bar [ad_context_bar [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