Index: openacs-4/packages/acs-admin/www/users/complex-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/complex-search.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/users/complex-search.tcl	12 May 2001 05:07:52 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/complex-search.tcl	9 Mar 2002 02:00:02 -0000	1.3
@@ -104,7 +104,7 @@
 
 if { [exists_and_not_null email] } {
     set sql_email "%[string tolower $email]%"
-    lappend where_clause "lower(email) like :sql_email"
+    lappend where_clause "email like :sql_email"
     incr rowcount
     set criteria:[set rowcount](data) "Email contains '$email'"
 }