Mercurial > hg > mlmmj

changeset 516:277b8be14f75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sorting change
author mmj
date Fri, 09 Sep 2005 01:07:52 +1000
parents c0be5d3efe77
children ad761c84a780
files contrib/web/perl-admin/htdocs/subscribers.cgi
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi	Wed Jul 20 19:02:11 2005 +1000
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Sep 09 01:07:52 2005 +1000
@@ -122,7 +122,7 @@
 $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' : '',