View | Details | Raw Unified | Return to bug 8837
Collapse All | Expand All

(-)a/C4/ClassSortRoutine/Dewey.pm (-3 / +7 lines)
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
- 

Return to bug 8837