Index: openacs-4/packages/acs-admin/www/users/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/search.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/users/search.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-admin/www/users/search.tcl	9 Mar 2002 02:00:02 -0000	1.2
@@ -78,11 +78,11 @@
 if { [info exists keyword] } {
     set search_type "keyword"
     set sql_keyword "%[string tolower $keyword]%"
-    lappend where_clause "(lower(email) like :sql_keyword or lower(first_names || ' ' || last_name) like :sql_keyword)"
+    lappend where_clause "(email like :sql_keyword or lower(first_names || ' ' || last_name) like :sql_keyword)"
 } elseif { [info exists email] && ![empty_string_p $email] } {
     set search_type "email"    
     set sql_email "%[string tolower $email]%"
-    lappend where_clause "lower(email) like :sql_email"
+    lappend where_clause "email like :sql_email"
 } else {
     set search_type "last"        
     set sql_last_name "%[string tolower $last_name]%"
@@ -155,4 +155,4 @@
 set export_authorize [export_ns_set_vars {url} {only_authorized_p}]
 
 
-ad_return_template
\ No newline at end of file
+ad_return_template