Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Oct 2003 09:45:15 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	3 Oct 2003 13:12:43 -0000	1.37
@@ -655,7 +655,10 @@
 ad_proc -public party::get_by_email {
     {-email:required}
 } {
-    Return the party_id of the party with the given email. Returns empty string if no party found.
+    Return the party_id of the party with the given email. 
+    Uses a lowercase comparison as we don't allow for parties
+    to have emails that only differ in case.
+    Returns empty string if no party found.
 
     @return party_id
 } {
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	2 Oct 2003 09:45:15 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	3 Oct 2003 13:12:43 -0000	1.11
@@ -133,7 +133,7 @@
       
         select party_id 
         from   parties 
-        where  email = :email 
+        where  lower(email) = lower(:email)
 
       </querytext>
 </fullquery>