From: mmj <none@none>
Date: Thu, 8 Sep 2005 15:07:52 +0000 (+1000)
Subject: Sorting change
X-Git-Tag: RELEASE_1_2_12_RC1~63
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a5fd4def7a12f2a8058566abffbc9117236b5bbb;p=thirdparty%2Fmlmmj.git

Sorting change
---

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index ef3b3aaa..c0dbfd26 100755
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -122,7 +122,7 @@ $tpl->assign(ACTION => $action);
 $subscribers = get_subscribers();
 
 my $i = 0;
-for my $address (sort keys %$subscribers) {
+for my $address (sort {lc $a cmp lc $b} keys %$subscribers) {
 	$tpl->assign(EMAIL => $address,
 				 ID => $i++,
 				 SCHECKED => $subscribers->{$address}->{subscriber} ? 'checked' : '',