Permalink
Browse files

Merge branch 'Bug4265' into ptfs-master

  • Loading branch information...
2 parents 929c08a + 523fdbb commit 965ff719d8c561bf95d06d715d289e3607a22a60 J. David Bavousett committed Mar 23, 2010
Showing with 6 additions and 2 deletions.
  1. +4 −0 C4/ClassSortRoutine/Dewey.pm
  2. +2 −2 C4/Search.pm
@@ -76,6 +76,10 @@ sub get_class_sort_key {
}
}
}
+ # Pad the first digit_group if there was only one
+ if (1 == $digit_group_count) {
+ $tokens[0] .= '_000000000000000'
+ }
my $key = join("_", @tokens);
$key =~ s/[^\p{IsAlnum}_]//g;
View
@@ -357,10 +357,10 @@ sub getRecords {
$sort_by .= "1=9003 >i ";
}
elsif ( $sort eq "call_number_asc" ) {
- $sort_by .= "1=20 <i ";
+ $sort_by .= "1=8007 <i ";
}
elsif ( $sort eq "call_number_dsc" ) {
- $sort_by .= "1=20 >i ";
+ $sort_by .= "1=8007 >i ";
}
elsif ( $sort eq "pubdate_asc" ) {
$sort_by .= "1=31 <i ";

0 comments on commit 965ff71

Please sign in to comment.