Index: openacs-4/packages/acs-api-browser/lib/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/lib/search.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-api-browser/lib/search.tcl	10 Sep 2003 12:11:55 -0000	1.1
+++ openacs-4/packages/acs-api-browser/lib/search.tcl	11 Dec 2003 21:39:45 -0000	1.2
@@ -12,7 +12,7 @@
 
 set aolserver_tcl_api_root "http://www.aolserver.com/docs/devel/tcl/api/"
 
-set tcl_docs_root "http://dev.scriptics.com/man/tcl[info tclversion]/TclCmd/contents.htm"
+set tcl_docs_root "http://tcl.tk/man/tcl[info tclversion]/TclCmd/contents.htm"
 
 set package_url [apm_package_url_from_key "acs-api-browser"]
 
@@ -25,3 +25,29 @@
 set aolserver_search_url "${package_url}tcl-proc-view"
 
 set tcl_search_url "${package_url}tcl-doc-search"
+
+
+switch [db_type] {
+    postgresql {
+        set db_pretty "PostgreSQL [db_version]"
+        set db_doc_url "http://www.postgresql.org/docs/[db_version]/interactive/index.html"
+        set db_doc_search_url "http://www.postgresql.org/search.cgi"
+        set db_doc_search_export [export_vars -form { { ul "http://www.postgresql.org/docs/[db_version]/static/" } }]
+        set db_doc_search_query_name "q"
+    }
+    oracle {
+        set db_pretty "Oracle [db_version]"
+        # Oracle docs require login, can't offer direct search link
+        switch [db_version] {
+            8.1.7 {
+                set db_doc_url "http://otn.oracle.com/documentation/oracle8i.html"
+            }
+            8.1.6 {
+                set db_doc_url "http://otn.oracle.com/documentation/oracle8i_arch_816.html"
+            }
+            9* {
+                set db_doc_url "http://otn.oracle.com/documentation/oracle9i.html"
+            }
+        }
+    }
+}