Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	3 Oct 2003 09:21:39 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	21 Nov 2003 22:09:22 -0000	1.13.2.1
@@ -268,12 +268,12 @@
 		}
 		
 		"last_name_starts_with" {
-		    lappend where_clauses "upper(users.last_name) like upper([ns_dbquotevalue "${last_name_starts_with}%"])"
+		    lappend where_clauses "lower(users.last_name) like lower([ns_dbquotevalue "${last_name_starts_with}%"])"
 		    # note the added percent sign  here
 		    
 		}
 		"email_starts_with" {
-		    lappend where_clauses "upper(users.email) like upper([ns_dbquotevalue "${email_starts_with}%"])"
+		    lappend where_clauses "lower(users.email) like lower([ns_dbquotevalue "${email_starts_with}%"])"
 		    # note the added percent sign  here
 		    
 		}