Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	17 Mar 2023 16:42:52 -0000	1.10
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	17 Mar 2023 16:47:25 -0000	1.11
@@ -2,8 +2,10 @@
     Took these defs out of the /www/doc/schema-browser/index.tcl file.
 }
 
-ad_proc sb_get_tables_list {} {} {
+namespace eval sb {}
 
+ad_proc sb::get_tables_list {} {} {
+
     set tables ""
 
     db_foreach schema_browser_index_get_tables "select table_name
@@ -16,12 +18,12 @@
 
 }
 
-ad_proc sb_get_tables { selected_table_name } {} {
+ad_proc sb::get_tables { selected_table_name } {} {
 
     set n_columns 4
     set return_string ""
 
-    set tables [util_memoize "sb_get_tables_list"]
+    set tables [util_memoize "sb::get_tables_list"]
 
     set n_rows [expr {([llength $tables] - 1) / $n_columns + 1}]
 
@@ -48,7 +50,7 @@
     return $return_string
 }
 
-ad_proc sb_get_triggers { table_name } {} {
+ad_proc sb::get_triggers { table_name } {} {
     set return_string "\n-- $table_name triggers:"
     db_foreach sb_get_triggers_select_1 "
         select
@@ -71,7 +73,7 @@
     return $return_string
 }
 
-ad_proc sb_get_child_tables { table_name {html_anchor_p "f"} } {} {
+ad_proc sb::get_child_tables { table_name {html_anchor_p "f"} } {} {
 
   #
   # child tables -- put in comments about each child table that references this one
@@ -167,7 +169,7 @@
 
 }
 
-ad_proc sb_get_indexes { table_name { html_anchors_p "f" } } {} {
+ad_proc sb::get_indexes { table_name { html_anchors_p "f" } } {} {
 
 
     set return_string ""
@@ -216,7 +218,7 @@
 
 }
 
-ad_proc sb_get_table_description { table_name } {
+ad_proc sb::get_table_description { table_name } {
     @return table description as HTML
 } {
 
@@ -423,9 +425,9 @@
     }
 
     append html "\n);"
-    append html [sb_get_indexes $table_name]
-    append html [sb_get_triggers $table_name]
-    append html [sb_get_child_tables $table_name "t"]
+    append html [sb::get_indexes $table_name]
+    append html [sb::get_triggers $table_name]
+    append html [sb::get_child_tables $table_name "t"]
     append html "</pre>"
 
     return $html
Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl,v
diff -u -N -r1.20 -r1.21
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl	17 Mar 2023 16:42:52 -0000	1.20
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-postgresql.tcl	17 Mar 2023 16:47:25 -0000	1.21
@@ -2,7 +2,9 @@
     Took these defs out of the /www/doc/schema-browser/index.tcl file.
 }
 
-ad_proc sb_get_tables_list {} {
+namespace eval sb {}
+
+ad_proc sb::get_tables_list {} {
    Get all tables that belong to the current user.
 } {
     return [db_list schema_browser_index_get_tables {
@@ -16,15 +18,15 @@
     }]
 }
 
-ad_proc sb_get_tables { selected_table_name } {
+ad_proc sb::get_tables { selected_table_name } {
    Build an HTML table of all PG tables belonging to the current user.  Each PG table
    name is returned as a hyperlink to a page which displays the table's structure.
 } {
 
     set n_columns 4
     set return_string ""
 
-    set tables [sb_get_tables_list]
+    set tables [sb::get_tables_list]
     if {[llength $tables] == 0} {
         return {No tables found. Make sure the owner of the tables in the
                 database matches the user-id used by the web server to connect
@@ -59,7 +61,7 @@
 
 }
 
-ad_proc sb_get_triggers { table_name } {
+ad_proc sb::get_triggers { table_name } {
    Get all non-RI triggers on the table.
 } {
     set return_string "\n"
@@ -83,7 +85,7 @@
     return $return_string
 }
 
-ad_proc sb_get_child_tables { table_name {html_anchor_p "f"} } {
+ad_proc sb::get_child_tables { table_name {html_anchor_p "f"} } {
     Build an HTML snippet listing all tables which have at least one foreign key
     referring to table_name.
 } {
@@ -120,7 +122,7 @@
     return $return_string
 }
 
-ad_proc sb_get_indexes { table_name { html_anchors_p "f" } {pki {}}} {
+ad_proc sb::get_indexes { table_name { html_anchors_p "f" } {pki {}}} {
     Create statements for indexes on table_name.
 } {
 
@@ -181,7 +183,7 @@
     return $return_string
 }
 
-ad_proc sb_get_foreign_keys { table_name } {
+ad_proc sb::get_foreign_keys { table_name } {
     Build a list describing all foreign keys on table_name and their actions.
     We ignore MATCH conditions because Oracle doesn't support them, therefore,
     OpenACS doesn't use them.  Same is true of SET NULL and SET DEFAULT actions
@@ -304,7 +306,7 @@
 }
 
 
-ad_proc -public sb_get_table_size {
+ad_proc -public sb::get_table_size {
         {-table_name:required}
         {-namespace {public}}
         {-block_size {8192}}
@@ -342,11 +344,11 @@
 }
 
 
-ad_proc sb_get_table_description { table_name } {
+ad_proc sb::get_table_description { table_name } {
     @return table description as HTML
 } {
 
-    set foreign_keys [sb_get_foreign_keys $table_name]
+    set foreign_keys [sb::get_foreign_keys $table_name]
     array set references [lindex $foreign_keys 0]
     set complex_foreign_keys [lindex $foreign_keys 1]
 
@@ -509,14 +511,14 @@
     }
 
     append html "\n);"
-    append html [sb_get_indexes $table_name]
-    append html [sb_get_triggers $table_name]
-    append html [sb_get_child_tables $table_name "t"]
+    append html [sb::get_indexes $table_name]
+    append html [sb::get_triggers $table_name]
+    append html [sb::get_child_tables $table_name "t"]
 
     if {[string match "pg_*" $table_name]} {
-        set table_size [sb_get_table_size -table_name $table_name -namespace "pg_catalog"]
+        set table_size [sb::get_table_size -table_name $table_name -namespace "pg_catalog"]
     } else {
-        set table_size [sb_get_table_size -table_name $table_name]
+        set table_size [sb::get_table_size -table_name $table_name]
     }
     append html "\n\n-- Table size: [lc_numeric [lindex $table_size 0]] bytes\n"
     append html "-- Table rows: [lc_numeric [lindex $table_size 1]]\n"
Index: openacs-4/packages/schema-browser/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/www/index.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/schema-browser/www/index.tcl	16 Jan 2022 08:25:56 -0000	1.8
+++ openacs-4/packages/schema-browser/www/index.tcl	17 Mar 2023 16:47:25 -0000	1.9
@@ -36,13 +36,13 @@
 if { [info exists table_name] && $table_name ne "" } {
     set context [list "Table: $table_name"]
     set page_title "Table: $table_name"
-    set table_description [sb_get_table_description $table_name]
+    set table_description [sb::get_table_description $table_name]
 } else {
     set context ""
     set page_title "Schema Browser"
     set table_name ""
 }
 
 
-set table_list [sb_get_tables $table_name]
+set table_list [sb::get_tables $table_name]