Index: openacs-4/packages/acs-api-browser/www/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/Attic/index-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/index-oracle.xql	20 Jul 2006 10:10:31 -0000	1.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="get_local_package_version_id">      
+      <querytext>
+        select * from (
+            select version_id
+              from apm_package_version_info
+            where installed_p = 't'
+              and enabled_p = 't'
+              and package_key = :about_package_key
+	) 
+        where rownum = 1
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/Attic/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-api-browser/www/index-postgresql.xql	20 Jul 2006 10:10:31 -0000	1.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="get_local_package_version_id">
+      <querytext>
+
+        select version_id
+          from apm_package_version_info
+        where installed_p = 't'
+          and enabled_p = 't'
+          and package_key = :about_package_key
+	limit 1 
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-api-browser/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-api-browser/www/index.tcl	10 Sep 2003 12:11:55 -0000	1.4
+++ openacs-4/packages/acs-api-browser/www/index.tcl	20 Jul 2006 10:10:31 -0000	1.5
@@ -1,11 +1,16 @@
 ad_page_contract {
     
     Offers links to other pages, and lets the user type the name of a specific procedure.
-    
+    If about_package_key is set to an installed package, then this page will automatically
+    return /package-view page for the package-key, which is a handy way of integrating
+    static docs with evolving api, especially for core packages.
+
+    @about_package_key a package-key
     @author Jon Salz (jsalz@mit.edu)
     @author Lars Pind (lars@pinds.com)
     @cvs-id $Id$
 } {
+    about_package_key:optional
 } -properties {
     title:onevalue
     context:onevalue
@@ -17,27 +22,37 @@
 set title "API Browser"
 set context [list]
 
-db_multirow installed_packages installed_packages_select {
-    select version_id, pretty_name, version_name
-      from apm_package_version_info
-     where installed_p = 't'
-       and enabled_p = 't'
-  order by upper(pretty_name)
-}
+if  { [info exists about_package_key] } {
 
-db_multirow disabled_packages disabled_packages_select {
-    select version_id, pretty_name, version_name
-      from apm_package_version_info
-     where installed_p = 't'
-       and enabled_p = 'f'
-  order by upper(pretty_name)
-}
+    if { [db_0or1row get_local_package_version_id {} ] } {
+        rp_form_put version_id $version_id
+        rp_internal_redirect package-view
+    }
 
-db_multirow uninstalled_packages uninstalled_packages_select {
-    select version_id, pretty_name, version_name
-      from apm_package_version_info
-     where installed_p = 'f'
-       and enabled_p = 'f'
-  order by upper(pretty_name)
-}
+} else {
 
+    db_multirow installed_packages installed_packages_select {
+        select version_id, pretty_name, version_name
+          from apm_package_version_info
+        where installed_p = 't'
+          and enabled_p = 't'
+      order by upper(pretty_name)
+    }
+
+    db_multirow disabled_packages disabled_packages_select {
+        select version_id, pretty_name, version_name
+          from apm_package_version_info
+         where installed_p = 't'
+           and enabled_p = 'f'
+      order by upper(pretty_name)
+    }
+
+    db_multirow uninstalled_packages uninstalled_packages_select {
+        select version_id, pretty_name, version_name
+          from apm_package_version_info
+         where installed_p = 'f'
+           and enabled_p = 'f'
+      order by upper(pretty_name)
+    }
+
+}