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 -r1.7 -r1.8
--- openacs-4/packages/acs-api-browser/lib/search.tcl	7 Aug 2017 23:47:45 -0000	1.7
+++ openacs-4/packages/acs-api-browser/lib/search.tcl	3 Sep 2024 15:37:29 -0000	1.8
@@ -1,21 +1,18 @@
-#
-# API Browser search widget
-#
-# @cvs-id $Id$
-#
-# Expects: query_string:optional
-#
+ad_include_contract {
+    API Browser search widget
 
-if { ![info exists query_string] } {
-    set query_string {}
+    @cvs-id $Id$
+} {
+    {query_string ""}
 }
+
 set package_url [apm_package_url_from_key "acs-api-browser"]
 
 # AOLserver has dropped documentation, use NaviServer docs instead
 #set server_tcl_api_root     "http://www.aolserver.com/docs/devel/tcl/api/"
 set server_tcl_api_root      "https://naviserver.sourceforge.io/n/toc.html"
 
-set tcl_docs_root            "http://tcl.tk/man/tcl[info tclversion]/TclCmd/contents.htm"
+set tcl_docs_root            "https://tcl-lang.org/man/tcl[info tclversion]/TclCmd/contents.htm"
 
 set openacs_search_url       "${package_url}proc-search"
 set openacs_browse_url       "${package_url}proc-browse"
@@ -48,13 +45,13 @@
                 set db_doc_url "http://otn.oracle.com/documentation/oracle9i.html"
 		set db_doc_search_url "http://otn.oracle.com/pls/db92/db92.drilldown"
 		set db_doc_search_export ""
-		set db_doc_search_query_name "word"	
+		set db_doc_search_query_name "word"
             }
             10* {
                 set db_doc_url ""
                 set db_doc_search_url "http://otn.oracle.com/pls/db10g/db10g.drilldown"
                 set db_doc_search_export "http://otn.oracle.com/pls/db10g/db10g.homepage"
-                set db_doc_search_query_name "word"                
+                set db_doc_search_query_name "word"
             }
             default {
                 set db_doc_url ""