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

(-)a/C4/ClassSortRoutine/Dewey.pm (+4 lines)
Lines 76-81 sub get_class_sort_key { Link Here
76
            }
76
            }
77
        }
77
        }
78
    }
78
    }
79
    # Pad the first digit_group if there was only one
80
    if (1 == $digit_group_count) {
81
        $tokens[0] .= '_000000000000000'
82
    }
79
    my $key = join("_", @tokens);
83
    my $key = join("_", @tokens);
80
    $key =~ s/[^\p{IsAlnum}_]//g;
84
    $key =~ s/[^\p{IsAlnum}_]//g;
81
85
(-)a/C4/Search.pm (-3 / +2 lines)
Lines 364-373 sub getRecords { Link Here
364
                $sort_by .= "1=9003 >i ";
364
                $sort_by .= "1=9003 >i ";
365
            }
365
            }
366
            elsif ( $sort eq "call_number_asc" ) {
366
            elsif ( $sort eq "call_number_asc" ) {
367
                $sort_by .= "1=20  <i ";
367
                $sort_by .= "1=8007  <i ";
368
            }
368
            }
369
            elsif ( $sort eq "call_number_dsc" ) {
369
            elsif ( $sort eq "call_number_dsc" ) {
370
                $sort_by .= "1=20 >i ";
370
                $sort_by .= "1=8007 >i ";
371
            }
371
            }
372
            elsif ( $sort eq "pubdate_asc" ) {
372
            elsif ( $sort eq "pubdate_asc" ) {
373
                $sort_by .= "1=31 <i ";
373
                $sort_by .= "1=31 <i ";
374
- 

Return to bug 4265