Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/acs-api-browser/www/content-page-view.tcl 13 Mar 2001 22:59:26 -0000 1.1 +++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl 6 Sep 2002 21:49:54 -0000 1.2 @@ -14,10 +14,11 @@ path } -properties { title:onevalue - context_bar:onevalue + context:onevalue script_documentation:onevalue } +set context [list] if { ![info exists version_id] && \ [regexp {^packages/([^ /]+)/} $path "" package_key] } { db_0or1row version_id_from_package_key { @@ -33,12 +34,11 @@ from apm_package_version_info where version_id = :version_id } - lappend context_bar_elements [list "package-view?version_id=$version_id&kind=content" "$pretty_name $version_name"] + lappend context [list "package-view?version_id=$version_id&kind=content" "$pretty_name $version_name"] } -lappend context_bar_elements [file tail $path] +lappend context [file tail $path] -set context_bar [eval ad_context_bar $context_bar_elements] set title [file tail $path] set script_documentation [api_script_documentation $path]