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 -r1.13.2.2 -r1.13.2.3 --- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 3 Mar 2020 17:35:54 -0000 1.13.2.2 +++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 3 Mar 2020 17:47:40 -0000 1.13.2.3 @@ -117,12 +117,14 @@ } } 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} + if {[db_driverkey ""] eq "postgresql"} { + 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} + } } } }