Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.29.2.23 -r1.29.2.24
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	13 Jul 2022 09:44:04 -0000	1.29.2.23
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	13 Jul 2022 09:54:32 -0000	1.29.2.24
@@ -4336,6 +4336,17 @@
     return $joined_url
 }
 
+ad_proc -deprecated -public apm_db_type_keys {} {
+
+    Returns a list of valid database type keys.
+
+    @see db_known_database_types
+} {
+    return [lmap dbtype $::acs::known_database_types {lindex $dbtype 0}]
+    # return [util_memoize [list db_list db_type_keys {select db_type_key from apm_package_db_types}]]
+}
+
+
 ########################################################################
 # Functions based on undefined code
 ########################################################################