[open-ils-commits] r9754 - branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2008-05-31 15:45:10 -0400 (Sat, 31 May 2008)
New Revision: 9754

Modified:
   branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
fix sort and dir adv search syntax

Modified: branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-05-31 19:43:26 UTC (rev 9753)
+++ branches/rel_1_2_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2008-05-31 19:45:10 UTC (rev 9754)
@@ -493,6 +493,10 @@
             $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};