Mercurial > hg > mlmmj

changeset 548:79b94f047b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make search case insensitive
author xi
date Fri, 30 Jun 2006 22:41:19 +1000
parents ccba16f72354
children 66c02ea8dbf7
files contrib/web/perl-admin/htdocs/subscribers.cgi
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jun 30 22:38:00 2006 +1000
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jun 30 22:41:19 2006 +1000
@@ -194,9 +194,10 @@
 	chomp @nomailsubs;
 
 	if (defined $search) {
-		@subscribers = grep {index($_, $search) != -1} @subscribers;
-		@digesters = grep {index($_, $search) != -1} @digesters;
-		@nomailsubs = grep {index($_, $search) != -1} @nomailsubs;
+		$search = lc $search;
+		@subscribers = grep {index(lc $_, $search) != -1} @subscribers;
+		@digesters = grep {index(lc $_, $search) != -1} @digesters;
+		@nomailsubs = grep {index(lc $_, $search) != -1} @nomailsubs;
 	}
 
 	for my $address (@subscribers) {