Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 17 May 2003 09:38:28 -0000 1.4 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 28 Apr 2005 18:45:40 -0000 1.5 @@ -5,6 +5,7 @@ } { proc source_p:optional,integer,trim + {version_id ""} } -properties { title:onevalue context:onevalue @@ -16,8 +17,18 @@ } set title $proc -set context [list $proc] +set context [list] +if { [exists_and_not_null version_id] } { + db_1row package_info_from_package_id { + select pretty_name, package_key, version_name + from apm_package_version_info + where version_id = :version_id + } + lappend context [list "package-view?version_id=$version_id&kind=procs" "$pretty_name $version_name"] +} +lappend context [list $proc] + set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p] set return_url [ns_urlencode [ad_conn url]?[export_url_vars proc]] set error_msg ""