Index: openacs-4/packages/ecommerce/www/admin/user-classes/member-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/user-classes/member-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/user-classes/member-add.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/user-classes/member-add.tcl	9 Mar 2002 02:00:02 -0000	1.2
@@ -31,9 +31,9 @@
     append page_html "<h3>Users whose last name contains '$last_name':</h3>\n"
     set last_bit_of_query "upper(last_name) like :u_last_name"
 } else {
- set u_email %[string toupper $email]%
+ set l_email %[string tolower $email]%
     append page_html "<h3>Users whose email contains '$email':</h3>\n"
-    set last_bit_of_query "upper(email) like :u_email"
+    set last_bit_of_query "email like :l_email"
 }
 
 append page_html "<ul>
@@ -58,4 +58,4 @@
 "
 
 
-doc_return  200 text/html $page_html
\ No newline at end of file
+doc_return  200 text/html $page_html