From: xi <none@none>
Date: Fri, 30 Jun 2006 12:41:19 +0000 (+1000)
Subject: Make search case insensitive
X-Git-Tag: RELEASE_1_2_12_RC1~31
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0460610671ace1bc338eb417eb315b9331fab8bb;p=thirdparty%2Fmlmmj.git

Make search case insensitive
---

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index c3d6c60e..f6a632ed 100755
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -194,9 +194,10 @@ sub get_subscribers {
 	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) {