|
Lines 63-68
sub get_class_sort_key {
Link Here
|
| 63 |
my $init = uc "$cn_class $cn_item"; |
63 |
my $init = uc "$cn_class $cn_item"; |
| 64 |
$init =~ s/^\s+//; |
64 |
$init =~ s/^\s+//; |
| 65 |
$init =~ s/\s+$//; |
65 |
$init =~ s/\s+$//; |
|
|
66 |
$init =~ s/\// /g; |
| 66 |
$init =~ s!/!!g; |
67 |
$init =~ s!/!!g; |
| 67 |
$init =~ s/^([\p{IsAlpha}]+)/$1 /; |
68 |
$init =~ s/^([\p{IsAlpha}]+)/$1 /; |
| 68 |
my @tokens = split /\.|\s+/, $init; |
69 |
my @tokens = split /\.|\s+/, $init; |
|
Lines 75-82
sub get_class_sort_key {
Link Here
|
| 75 |
$first_digit_group_idx = $i; |
76 |
$first_digit_group_idx = $i; |
| 76 |
} |
77 |
} |
| 77 |
if (2 == $digit_group_count) { |
78 |
if (2 == $digit_group_count) { |
| 78 |
$tokens[$i] = sprintf("%-15.15s", $tokens[$i]); |
79 |
if ($i - $first_digit_group_idx == 1) { |
| 79 |
$tokens[$i] =~ tr/ /0/; |
80 |
$tokens[$i] = sprintf("%-15.15s", $tokens[$i]); |
|
|
81 |
$tokens[$i] =~ tr/ /0/; |
| 82 |
} else { |
| 83 |
$tokens[$first_digit_group_idx] .= '_000000000000000' |
| 84 |
} |
| 80 |
} |
85 |
} |
| 81 |
} |
86 |
} |
| 82 |
} |
87 |
} |
| 83 |
- |
|
|