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 ""