Index: openacs-4/packages/acs-subsite/acs-subsite.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/acs-subsite.info,v
diff -u -N -r1.131.2.11 -r1.131.2.12
--- openacs-4/packages/acs-subsite/acs-subsite.info	28 Nov 2019 11:06:31 -0000	1.131.2.11
+++ openacs-4/packages/acs-subsite/acs-subsite.info	3 Mar 2020 17:35:53 -0000	1.131.2.12
@@ -9,7 +9,7 @@
     <implements-subsite-p>t</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="5.10.0d18" url="http://openacs.org/repository/download/apm/acs-subsite-5.10.0d18.apm">
+    <version name="5.10.0d19" url="http://openacs.org/repository/download/apm/acs-subsite-5.10.0d19.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Subsite</summary>
         <release-date>2017-08-06</release-date>
@@ -18,7 +18,7 @@
         <license>GPL</license>
         <maturity>3</maturity>
 
-        <provides url="acs-subsite" version="5.10.0d18"/>
+        <provides url="acs-subsite" version="5.10.0d19"/>
         <requires url="acs-authentication" version="5.10.0d5"/>
         <requires url="acs-content-repository" version="5.9.1"/>
         <requires url="acs-kernel" version="5.9.1"/>
Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	16 May 2019 09:27:52 -0000	1.13.2.1
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 17:35:54 -0000	1.13.2.2
@@ -116,6 +116,17 @@
                     }
                 }
             }
+            5.10.0d18 5.10.0d19 {
+                db_transaction {
+                    db_foreach table_name {select table_name from acs_object_types} {
+                        set table_name_lc [string tolower $table_name]
+                        if {$table_name_lc ne $table_name} {
+                            ns_log notice "Fix case discrepancy in table_name attribute of acs_object_types: $table_name -> $table_name_lc"
+                            db_dml to_lower {update acs_object_types set table_name=:table_name_lc where table_name=:table_name}
+                        }
+                    }
+                }
+            }
         }
 }