Changeset 12182


Ignore:
Timestamp:
2006-07-12T17:13:51+12:00 (18 years ago)
Author:
mdewsnip
Message:

Made sorting within static browser letters case-insensitive.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/cic-hcap/perllib/plugins/CICPlug.pm

    r12173 r12182  
    11411141    }
    11421142 
    1143     my @full_names = sort(keys(%full_name_to_id_mapping));
     1143    my @full_names = sort { lc($a) cmp lc($b) } (keys(%full_name_to_id_mapping));
    11441144    my $half_point = ((scalar(@full_names) % 2 == 0) ? scalar(@full_names) / 2 : (scalar(@full_names) + 1) / 2);
    11451145    for (my $i = 0; $i < $half_point; $i++) {
Note: See TracChangeset for help on using the changeset viewer.