Changeset 11879

Timestamp:

2006-05-30T11:07:04+12:00 (18 years ago)

Author:

mdewsnip

Message:

Assigning names into letter buckets for the static browsers is now done a bit more intelligently.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (1 diff)

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

@@ -893 +893 @@
     my %letter_to_name_mapping;
     foreach my $name (keys %$name_to_id_mapping) {
-    my ($letter) = ($name =~ /^(.)/);
+    my ($letter) = ($name =~ /([A-Za-z0-9])/);
     push(@{$letter_to_name_mapping{$letter}}, $name);
     }