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 -r1.131.2.12 -r1.131.2.13
--- openacs-4/packages/acs-subsite/acs-subsite.info	3 Mar 2020 17:35:53 -0000	1.131.2.12
+++ openacs-4/packages/acs-subsite/acs-subsite.info	3 Mar 2020 18:38:15 -0000	1.131.2.13
@@ -9,7 +9,7 @@
     <implements-subsite-p>t</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
 
-    <version name="5.10.0d19" url="http://openacs.org/repository/download/apm/acs-subsite-5.10.0d19.apm">
+    <version name="5.10.0d20" url="http://openacs.org/repository/download/apm/acs-subsite-5.10.0d20.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.0d19"/>
+        <provides url="acs-subsite" version="5.10.0d20"/>
         <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 -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 17:47:40 -0000	1.13.2.3
+++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl	3 Mar 2020 18:38:15 -0000	1.13.2.4
@@ -129,6 +129,19 @@
                     }
                 }
             }
+            5.10.0d19 5.10.0d20 {
+                if {[db_driverkey ""] eq "postgresql"} {
+                    db_transaction {
+                        db_foreach id_column {select id_column from acs_object_types} {
+                            set id_column_lc [string tolower $id_column]
+                            if {$id_column_lc ne $id_column} {
+                                ns_log notice "Fix case discrepancy in id_column attribute of acs_object_types: $id_column -> $id_column_lc"
+                                db_dml to_lower {update acs_object_types set id_column=:id_column_lc where id_column=:id_column}
+                            }
+                        }
+                    }
+                }
+            }
         }
 }
 
Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.12.2.2 -r1.12.2.3
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	3 Mar 2020 16:11:12 -0000	1.12.2.2
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	3 Mar 2020 18:38:15 -0000	1.12.2.3
@@ -86,7 +86,7 @@
         # unique group_id primary key
 
         set id_column [db_string select_group_id_column {
-            select upper(id_column) from acs_object_types where object_type='group'
+            select id_column from acs_object_types where object_type='group'
         }]
         set package_name [string tolower $group_type]
 
Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.xql,v
diff -u -r1.2 -r1.2.32.1
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.xql	20 Aug 2001 21:52:31 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.xql	3 Mar 2020 18:38:15 -0000	1.2.32.1
@@ -4,7 +4,7 @@
 <fullquery name="group_type::new.select_group_id_column">      
       <querytext>
       
-	    select upper(id_column) from acs_object_types where object_type='group'
+	    select id_column from acs_object_types where object_type='group'
 	
       </querytext>
 </fullquery>