fix sort and dir adv search syntax

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2_2@9754 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index 1671861..0b5b269 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
@@ -493,6 +493,10 @@ sub multiclass_query {
             $arghash->{language} = [] unless $arghash->{language};
             push(@{$arghash->{language}}, $value);
 
+        } elsif($type =~ /^sort/o) {
+            # sort and sort_dir modifiers
+            $arghash->{$type} = $value;
+             
         } else {
             # append the search term to the term under construction
             $search->{$type} =  {} unless $search->{$type};