Index: openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl	29 Jan 2002 00:11:46 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/customer-service/interaction-add-2.tcl	9 Mar 2002 02:00:02 -0000	1.3
@@ -232,7 +232,7 @@
     # if their email address was filled in, see if they're a registered user
     if { ![empty_string_p $email] } {
 	set email [string toupper $email]
-	if {  [db_0or1row get_does_row_exist_p "select first_names as d_first_names, last_name as d_last_name, user_id as d_user_id from cc_users where upper(email) =:email "]==1 } {
+	if {  [db_0or1row get_does_row_exist_p "select first_names as d_first_names, last_name as d_last_name, user_id as d_user_id from cc_users where email =lower(:email) "]==1 } {
 	
 
 	    append doc_body "<li>This is a registered user of the system: <a target=user_window href=\"[ec_acs_admin_url]users/one?user_id=$d_user_id\">$d_first_names $d_last_name</a>.
@@ -276,7 +276,7 @@
 	
 	set already_selected_user_identification_id_list [list]
 	if { ![empty_string_p $email] } {
-	    set sql "select user_identification_id as d_user_identification_id from ec_user_identification where upper(email)=upper(:email) and user_id is null"
+	    set sql "select user_identification_id as d_user_identification_id from ec_user_identification where email=lower(:email) and user_id is null"
 	    
 	    db_foreach get_user_identification $sql {