Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -N -r1.39 -r1.40
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	24 Mar 2018 00:14:57 -0000	1.39
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	14 May 2018 12:49:21 -0000	1.40
@@ -96,16 +96,6 @@
     return [array names file_type_names]
 }
 
-
-ad_proc -public apm_db_type_keys {} {
-
-    Returns a list of valid database type keys.
-
-} {
-    return [util_memoize [list db_list db_type_keys {select db_type_key from apm_package_db_types}]]
-}
-
-
 ad_proc -public apm_package_info_file_path { 
     {-path ""}
     package_key 
@@ -655,7 +645,25 @@
     }
 }
 
+
 #
+### Deprecated procs
+#
+
+# apisano 2018-05-14: current code won't use this proc and is also not
+# clear why we should get from the database something we have in a
+# proc already. Commented code was the original one
+ad_proc -deprecated -public apm_db_type_keys {} {
+
+    Returns a list of valid database type keys.
+
+} {
+    return [lmap dbtype [ad_known_database_types] {lindex $dbtype 0}]
+    # return [util_memoize [list db_list db_type_keys {select db_type_key from apm_package_db_types}]]
+}
+
+
+#
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4