Index: openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl 21 Feb 2005 14:32:56 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl 11 Apr 2005 19:01:49 -0000 1.5 @@ -21,9 +21,11 @@ {orderby:optional "title,asc"} {page:optional 1} {search_again_url:optional ""} +} -properties { + title:onevalue + context:onevalue } - set package_id [ad_conn package_id] permission::require_permission -object_id $package_id -privilege create permission::require_permission -object_id $assessment_id -privilege admin @@ -39,10 +41,10 @@ if {[info exists section_id]} { db_1row section_title {} set page_title "[_ assessment.Search_Item_1]" - set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] "[_ assessment.Search_Item]"] + set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] "[_ assessment.Search_Results]"] } else { set page_title "[_ assessment.Search_Section_1]" - set context_bar [ad_context_bar [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] "[_ assessment.Search_Section]"] + set context [list [list index [_ assessment.admin]] [list [export_vars -base one-a {assessment_id}] $assessment_data(title)] "[_ assessment.Search_Results]"] } set package_id [ad_conn package_id]