Index: openacs-4/packages/acs-api-browser/www/type-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/type-view.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-api-browser/www/type-view.tcl 13 Mar 2001 22:59:26 -0000 1.1 +++ openacs-4/packages/acs-api-browser/www/type-view.tcl 6 Sep 2002 21:49:54 -0000 1.2 @@ -9,7 +9,7 @@ type } -properties { title:onevalue - contextbar:onevalue + context:onevalue documentation:onevalue } @@ -28,19 +28,18 @@ set public_p [api_set_public] } -set context_bar_elements [list] +set context [list] if { [info exists version_id] } { db_1row package_info_from_version_id { select package_name, package_key, version_name from apm_package_version_info where version_id = :version_id } - lappend context_bar_elements [list "package-view?version_id=$version_id&kind=types" "$package_name $version_name"] + lappend context [list "package-view?version_id=$version_id&kind=types" "$package_name $version_name"] } -lappend context_bar_elements $type +lappend context $type set title $type -set context_bar [eval ad_context_bar $context_bar_elements] set documentation [api_type_documentation $type] \ No newline at end of file