Merge branch 'Bug4265' into ptfs-master

liblime · Mar 23, 2010 · 965ff71 · 965ff71
2 parents 929c08a + 523fdbb
commit 965ff71
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/C4/ClassSortRoutine/Dewey.pm b/C4/ClassSortRoutine/Dewey.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;
 

diff --git a/C4/Search.pm b/C4/Search.pm
@@ -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 ";